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ABSTRACT 


In  recent  years,  the  political  climate  surrounding  drug  interdiction  has  brought 
the  focus  of  Coast  Guard  missions  into  emphasizing  the  prosecution  of  law 
enforcement  cases.  Many  law  enforcement  cases  are  pursuant  to  a  specific  search  and 
rescue  case  and  traditionally,  the  Coast  Guard  has  segregated  its  information  regarding 
vessels  into  separate  systems  for  each  of  these  areas.  The  existence  of  separate 
repositories  for  vessel  data  has  resulted  in  duplication  of  information,  lack  of 
consistency,  and  the  inability  to  integrate  information  between  systems.  The  purpose 
of  this  thesis  is  to  propose,  design,  and  implement  a  prototype  law  enforcement/search 
and  rescue  database  system  to  provide  a  single  repository  for  law  enforcement  and 
search  and  rescue  vessel  data.  The  prototype  will  be  developed  at  Coast  Guard  Group 
Monterey. 
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I.  INTRODUCTION 


A.  COAST  GUARD  GROUP  MONTEREY 

1.  Overview 

Coast  Guard  Group  Monterey  is  the  southernmost  of  three  Groups  in  the 
Twelfth  Coast  Guard  District.  The  Group  is  the  primary  Coast  Guard  interface  with 
other  federal,  state,  and  local  agencies  and  the  general  public  in  its  area  of 
responsibility.  Group  Monterey  serves  175  miles  of  California  coastline  out  to  60 
nautical  miles  from  Point  Ano  Nuevo  (north  of  Santa  Cruz)  south  to  Point  Sal  (north 
of  Santa  Maria).  Within  this  geographic  area,  the  Group  is  tasked  as  the  Search  and 
Rescue  Mission  Coordinator. 

The  primary  missions  of  Group  Monterey  include  law  enforcement,  search  and 
rescue,  marine  environmental  protection,  and  boating  safety.  To  fulfill  these  missions, 
the  Group  is  staffed  with  over  100  men  and  women  who  operate  and  maintain  a 
variety  of  law  enforcement  and  rescue  resources.  The  specific  organizational  structure 
and  mannin^-  is  outlined  in  Figure  I.l. 

2.  Search  and  Rescue  (SAR) 

Coast  Guard  Group  Monterey  has  been  an  active  SAR  Mission  Coordinator 
during  the  past  eight  years.  From  1979  to  1983.  there  were  over  1641  SAR  cases. 
More  detailed  SAR  statistics  have  been  maintair  .nee  1984  and  are  summarized  for 
the  period  October  1,  1983  -  April  1,  1987  in  Ta 

Group  Monterey  has  the  following  (  Guard  units  available  for  SAR 
response: 

CG-41367  (41  foot  utility  boat) 

CG-41369  (41  foot  utility  boat) 

CG-44346  (44  foot  motor  lifeboat) 

CG-195003  (19  foot  utility  boat) 

Point  Barrow  (82  font  patrol  boat) 

Point  Heyer  (82  foot  patrol  boat) 

Cape  Wash  (95  foot  patrol  boat) 

Coast  Guard  and  military  aviation  organizations  and  units  supporting  Group 
Monterey's  SAR  mission  include: 

Coast  Guard  Air  Station  Sacramento 
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Coast  Guard  Air  Station  San  Francisco 

Fort  Ord  MAST  Helicopters 

Fort  Hunter  Ligget  MAST  Helicopters 

Group  Monterey,  in  addition  to  its  Coast  Guard  and  military  SAR  resources, 
has  received  SAR  assistance  from  the  following: 

Coast  Guard  Auxiliary  vessels  and  aircraft 

Santa  Cruz  Harbor  Master 

Moss  Landing  Boat  Works 

California  Fish  and  Game 

San  Luis  Obispo  Harbor  Master 

Morro  Bay  Harbor  Master 

California  Highway  Patrol 

Various  county  sheriff  departments 

Pacific  Grove  Marine  Rescue 

Numerous  local  police  units 


TABLE  1 

GROUP  MONTEREY  SAR  STATISTICS 


FY 

Cases 

Lives 

Lost 

Lives 

Saved 

Persons 

Assisted 

Value  of 
Property 
Lost 

Value  of 
Property 
Assisted 

84 

378 

21 

62 

731 

S  2,033K 

S  1H,473K 

85 

324 

19 

48 

604 

S  1,403K 

S  7,492K 

86 

471 

20 

82 

852 

S  616K 

S  10,217K 

87 

217 

17 

33 

372 

S  122K 

S  5,276K 

3.  Law  Enforcement  j 

Group  Monterey  is  mandated  by  law  to  conduct  boardings  of  recreational,  ^ 

commercial,  and  passenger  vessels  to  ensure  compliance  with  applicable  federal  laws,  | 

regulations,  and  standards.  The  FY86  boarding  statistics  for  Group  Monterey  are  ! 

summarized  in  Table  2.  - 

Agencies  that  assist  or  work  m  cooperation  with  Coast  Guard  Group 
Monterey  include:  j 

Monterey  County  Sheriff  s  Department  I 
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Monterey  Police  Department 
Monterey  County  District  Attorney 
California  Highway  Patrol 
United  States  Customs  Service  (USCS) 

Bureau  of  Alcohol,  Tobacco,  and  Firearms  (ATF) 
Drug  Enforcement  Administration  (DEA) 
California  Department  of  Motor  Vehicles 
Santa  Cruz  County  Narcotics  Enforcement  Team 
United  States  Border  Patrol 
Narcotic  Detection  Dogs  (DELTA  IX) 

Fort  Ord  Federal  Police 
Santa  Cruz  Harbor  Master 
Pacific  Grove  Police  Department 
Morro  Bay  Police  Department 


B.  STATUTORY  AUTHORITY 

The  statutory  authority  that  governs  the  operations  of  Coast  Guard  Group 
Monterey  can  be  divided  into  two  separate  classifications.  One  area  of  responsibility 
and  authority  involves  laws  relating  to  navigation  and  merchant  shipping.  Laws  that 
relate  to  customs  and  revenue,  immigration,  quarantine,  protection  of  fish  and  game 
that  fall  within  the  jurisdiction  of  other  federal  agencies,  but  which  require  the  unique 
authority  and  marine  facilities  of  the  Coast  Guard  for  effective  enforcement  comprise 
the  second  legal  category.  Specific  statutory  authority  which  delineates  and  amplifies 
Coast  Guard  responsibilities  and  jurisdiction  include  the  following; 

14 


1.  14  use  2.  This  statute  outlines  the  specific  duties  and  responsibilities  of  the 
Coast  Guard  and  gives  the  Coast  Guard  authority  to  enforce  or  assist  in  the 
enforcement  of  all  applicable  federal  laws. 

2.  14  use  89.  This  statute  grants  specific  law  enforcement  authority  to  the  Coast 
Guard.  It  gives  the  Coast  Guard  the  authority  to  make  "inquiries, 
examinations,  inspections,  searches,  seizures,  and  arrests  on  the  high  seas  and 
waters  over  which  the  United  States  has  jurisdiction  for  prevention,  detection, 
and  supression  of  violations  of  laws  of  the  United  States". 

3.  14  use  141.  This  statute  gives  the  Coast  Guard  the  authority  to  assist  or  be 
assisted  by  any  federal  agency,  state,  territory,  or  possession  of  the  United 
States  in  the  enforcement  of  applicable  laws. 

4.  14  use  143  /  19  use  1401(i).  These  statutes  grant  customs  law  enforcement 
authority  to  the  Coast  Guard. 

5.  19  use  1581.  This  statute  grants  authority  to  the  Coast  Guard,  when 
enforcing  customs  laws,  to  seize  any  vessel,  merchandise,  or  arrest  any  person  in 
violation  of  these  laws. 

6.  Port  and  Waterways  Safety  Act  of  1970  (33  USC  1221).  This  act  increases  the 
supervision  of  vessel  and  port  operations  and  mandates  that  all  vessels 
operating  in  navigable  waters  of  the  United  States  comply  with  all  applicable 
standards  and  requirements  for  vessel  construction,  equipment,  manning, 
operational  procedures,  and  safe  handling  of  hazardous  cargos. 

7.  Federal  Boat  Safety  Act  of  1971  (46  USC  1451).  This  act  improves  recreational 
safe  boating  and  facilities  by  prescribing  specific  requirements  and  standards  for 
boats  and  equipment. 

8.  '  Executive  Order  11735  on  Oil  Pollution  (August  3,  1973).  This  order  directs  the 

Coast  Guard  to  receive  notice  of  discharges  of  oil  or  hazardous  substances,  to 
establish  procedures  to  prevent  and  contain  discharges,  to  inspect  vessels 
containing  oil  and  hazardous  substances  and  to  board  and  arrest  persons  in 
violation  of  applicable  laws. 

9.  Executive  Order  11727  on  Drug  Enforcement  (July  6,  1973).  This  order 
establishes  a  Drug  Enforcement  Administration  within  the  Departmeni  of 
Justice  and  directs  that  each  federal  department  and  agency  shall  assist  in  the 
enforcement  of  laws  involving  narcotics  and  dangerous  drugs. 


C.  THESIS  BACKGROUND 

As  demonstrated  throughout  Coast  Guard  history  and  mandated  by  statute,  the 
Coast  Guard  must  be  able  to  rapidly  respond  to  any  Search  &  Rescue  crisis  or  Law 
Enforcement  scenario.  Additional  and  timely  information  in  these  crises  and  scenarios 
can  make  the  difference  between  lives-saved  and  lives-lost,  or  violators  apprehended 
and  violators  that  escape  prosecution.  All  too  often,  this  information  is  maintained  in 
filing  cabinets  --  virtually  inaccessible  when  decisions  must  be  made  within  minutes. 


Coast  Guard  units,  such  as  Group  Monterey,  must  respond  to  situations  where  they 
have  little  or  no  information.  To  find  out  that  a  certain  vessel  owner/operator  has  a 
history  of  violations  or  is  considered  armed  and  dangerous  can  assist  Coast  Guard 
boarding  officers  in  better  preparing  for  what  could  be  a  life-threatening  situation. 
Additionally,  during  SAR  cases,  it  can  be  critical  to  know  a  vessel's  description  to 
facilitate  its  identification  by  land-based  units,  air  resources,  or  Coast  Guard  vessels 
dispatched  to  search  for  the  vessel  in  distress. 

,  -  In  order  to  respond  to  the  need  for  automated  information  support,  the  Search 
and  Rescue  and  Enforcement  of  Laws  and  Treaties  Intelligence  System  (SARELTIS) 
was  designed  and  implemented.  Coast  Guard  Group  Monterey  served  as  the  test  bed 
for  determining  information  needs  and  systems  analysis.  The  system  is  able  to  not  only 
respond  to  real-time  SAR  and  Law  Enforcement  cases,  but  is  also  robust  enough  to 
allow  users  to  ana'.yze  the  data  collected  to  form  their  own  local  intelligence 
information  base.  The  system's  standard  reports  can  provide  limited  decision-making 
support  for  Coast  Guard  resource  allocation  and  scheduling. 

D.  GOALS  AND  OBJECTIVES 

The  goals  and  objectives  of  SARELTIS  are  twofold:  first,  to  provide  a  real-time  query 
capability  and  second,  to  provide  historical  management  reports  that  can  aid  in 
resource  allocation,  scheduling,  and  distribution.  The  following  functions/products  will 
be  performed/  prepared  by  SARELTIS: 

a.  Interactive  Query 

*  Vessel  Searches 

*  Personnel  Searches 

b.  Intelligence  Reporting 

*  El  Paso  Intelligence  Center  (EPIC)  Intelligence  Summary 

*  Vessel  Profiles  for  Violation  Analysis 

*  Personnel  Intelligence  Summary 

c.  Boarding  Historical  Reports 

*  Violation/ Unsafe  Condition  Analysis 

*  Courtesy  Motorboat  Examination  (CME)  Analysis 

*  Geographic  Area  Analysis 

d.  SAR  Historical  Reports 

*  Immediate  SAR  Case  Analysis 

*  Geographic  Area  Analysis 


*  SAR  Unit  Operational  Time  Utilization  Summary 

*  Days/Months/Years  SAR  Case  Analysis 

e.  Vessel  Historical  Reports 

*  Vessel  Summary 

f.  Personnel  Historical  Reports 

*  Vessel  Owners  Summary 

*  Vessel  Operators  Summary 

E.  METHODOLOGY 

Two  prototypes  were  developed  as  a  precursor  to  SARELTIS.  Functionally,  the 
first  prototype  concentrated  on  the  Law  Enforcement  information  requirements  on  a 
limited  scale  while  the  second  prototype  concentrated  on  SAR.  After  proving  the 
technical  feasibility  of  the  SARELTIS  concept,  a  feasibility  study  was  prepared  and  is 
included  as  Chapter  11.  The  two  prototypes  will  be  discussed  in  Chapter  III. 

The  logical  design  structure  necessary  to  fulfill  the  information  requirements  to 
fully  implement  SARELTIS  is  presented  in  the  data  flow  diagrams  of  Appendix  A. 
These  dataflow  diagrams  depict  the  complete  analysis  of  the  SAR  and  Law 
Enforcement  functions  and  processes  of  Coast  Guard  Group  Monterey,  and  were 
developed  through  extensive  interviews  with  Group  personnel.  Additionally,  these 
diagrams  show  the  automation  boundary  of  SARELTIS,  which  is  a  graphic 
representation  of  precisely  where  SARELTIS  will  fit  into  these  missioa  areas.  Once 
this  automation  boundary  was  identified,  the  logical  entities  and  their  relationships 
within  this  boundary  were  determined  and  represented  by  the  Bachman  diagram  found 
in  Appendix  A. 

'"^The  physical  design  process  for  the  SARELTIS  prototyp.;  involved  the 
conversion  of  the  logical  model  into  a  language-specific  database  structure  and  an 
identification  of  the  modules  required  to  implement  the  required  functions  of  the 
application.  |To  perform  this  conversion,  all  of  the  currently  used  source  documents 
were  identified.  A  survey  was  prepared  containing  all  of  the  data  elements  present  on 
these  forms  and  was  distributed  to  representative  groups  of  users  at  Group  Monterey. 
These  users  identified  the  degree  to  which  the  data  elements  were  necessary  for  the 
performance  of  their  duties.  From  the  results  of  this  survey,  the  data  elements  required 
within  the  SARELTIS  database  were  identified.  These  data  elements  were  then 
grouped  within  the  previously  defined  entities  of  the  Bachman  diagram  and  became  the 
basis  for  the  SARELTIS  physical  database  structure. 
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At  the  completion  of  physical  database  structure  implementation,  the  specific 
functions  that  were  required  to  operate  upon  this  structure  were  identified,  including 
the  generation  of  all  required  and  anticipated  user  and  management  reports.  These 
functions  were  then  divided  into  implementable  modules,  coded,  and  tested.  Upon 
completion  of  testing,  modules  with  related  functionality  were  combined  and  the  sub¬ 
menu  code  required  to  invoke  each  application  was  developed.  Finally,  the  main 
menu,  security,  and  utility  modules  were  constructed  and  the  entire  system  was 
integrated.  The  module  functional  descriptions  are  provided  in  Appendix  D  and  the 
menu  hierarchy  charts  are  included  in  Appendix  C. 

The  User's  Guide,  located  in  Chapter  IV,  provides  the  user  with  a  step-by-step 


guide  to  the  SARELTIS  menu-based  system.  The  various  reports  generated  by 
SARELTIS  are  displayed  in  Appendix  B. 


F.  SYSTEM  REQUIREMENTS 

To  operate  SARELTIS,  the  following  hardware  is  required: 

*  IBM®  PC-XT,  PC-AT,  or  compatible  microcomputer 

*  DOS®,  Version  2.0  or  higher 

*  A  hard  disk  and  one  double-sided,  double-density  5.25  floppy  disk  drive 

*  384K  of  inain  memory  (system  processing  is  greatly  enhanced  if  640K  or  IM  of 
main  memory  is  available) 

*  Color  or  monochrome  monitor 

*  Printer,  with  normal  or  large  carriage 

/’SARELTIS  was  developed  utilizing  the  R:base  5000®  Database  Management 
System.written  by  MicroRim,  Inc.,  of  Belleview,  Washington. 


G.  SYSTEM  OVERVIEW 

''  SARELTIS  is  an  interactive,  user-friendly,  menu-driven  system.  A  series  of 
screens  displaying  various  menus  provide  the  user  with  a  functional  man-machine 
interface. 

The  overall  system  design  is  based  upon  one  relational  database  accessed  by 
eleven  functionally  separate  application  modules.  Application  modules  are  comprised 
of  functionally  distinct  programs.  These  program  functions  are  listed  in  Chapter  IV, 
the  User's  Guide,  with  each  module's  function  explained  in  detail  in  Appendix  D.  . 

All  system  reports  are  designed  to  be  printed  on  a  normal  (small)  width  carriage 
printer.  The  forty  five  reports  prepared  by  the  system  were  designed  to  assist  the 
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Commanding  Officer  or  Operations  Officer  to  make  better  resource  and  planning 
decisions. 

The  R:base  5000  language  is  easily  accessible  for  the  advanced  user  and  can  be 
used  to  build  other  applications,  reports,  forms,  searches,  and  displays  of  SARELTIS 
information  not  covered  in  the  original  implementation. 


II.  SARELTIS  FEASIBILITY 


A  feasibility  study  is  a  compressed,  capsule  version  of  the  entire  systems  analysis 
and  design  process.  As  part  of  the  feasibility  process,  the  existing  system  is  examined, 
a  high  level  model  of  the  proposed  system  is  developed,  and  the  overall  feasibility  of 
the  project  is  evaluated.  This  chapter  will  examine  the  economic  and  the  political 
feasibilities  of  SARELTIS.  The  technical  feasibility  will  be  addressed  in  Chapter  III 
(discussion  of  the  prototypes). 

A.  POLITICAL  FEASIBILITY 

Due  to  recent  Congressional  pressures  and  unfavorable  publicity  concerning  the 
Coast  Guard's  zealous  boarding  practices  in  unwarranted  situations,  attention  has 
been  focused  on  the  lack  of  available  information  provided  to  boarding  officers  prior  to 
the  boarding  of  a  vessel.  Boarding  officers  must  comply  with  the  provisions  of  Title  14 
of  the  U.S.  Code,  Section  89,  concerning  their  use  of  force  necessary  to  compel  public 
and  commercial  boaters  to  comply  with  U.S.  laws  and  boarding  directions.  However, 
without  adequate  information  or  intelligence  prior  to  boarding,  the  degree  of  initial 
force  necessary  to  ensure  this  compliance  is  difficult  if  not  impossible  to  predetermine. 
Therefore,  any  means  of  providing  this  intelligence  information  would  be  strongly 
welcomed  at  all  levels  of  the  Coast  Guard. 

Coast  Guard  Group  Monterey  was  contacted  in  early  June  1986  to  determine 
their  willingness  to  serve  as  a  test  site  for  the  implementation  of  a  prototype 
intelligence  system.  Their  response  was  overwhelming  and  highly  supportive. 
Following  the  initial  positive  reaction  of  Group  Monterey,  both  the  Twelfth  Coast 
Guard  District  and  Coast  Guard  Pacific  Area  intelligence  offices  were  approached  in 
December  1986  concerning  the  proposal  and  the  results  of  the  first  prototype.  They 
also  displayed  a  high  degree  of  enthusiasm  for  the  effort.  In  April  1987,  RADM  W. 
Merlin,  the  Coast  Guard's  senior  management  responsible  for  all  computer 
applications,  expressed  an  interest  in  the  project  and  promised  additional  hardware 
support. 

It  is  obvious  from  the  above  that  the  concept  of  providing  automated  intelligence 
and  information  is  supported  at  all  levels  of  the  Coast  Guard  —  from  local  operational 
personnel  to  top  management  of  the  entire  organization.  This  kind  of  multi-level 
organizational  support  has  shown  that  the  SARELTIS  project  is  politically  feasible. 


B.  ECONOMIC  FEASIBILITY 


Economic  feasibility  is  demonstrated  if  it  can  be  shown  that  the  benefits  of  a 
system  outweigh  its  costs.  Before  making  any  cost/benefit  study,  it  is  important  to  list 
the  assumptions  that  were  used  so  that  the  reader  may  see  what  constraints  were 
imposed  on  the  analysis  and  where  the  costs  and  benefits  were  derived  from.  The 
following  is  a  list  of  assumptions  used  in  formulating  the  cost/benefit  analysis: 

a.  Management  information  research  on  Search  and  Rescue  (SAR)  cases  provided 
monthly. 

b.  Management  information  research  on  Enforcement  of  Laws  and  Treaties  (ELT) 
cases  provided  weekly. 

c.  SAR  management  information  research  performed  by  Group  Monterey's 
Oflicer-of-the-Day  (paygrade  E-6). 

d.  L/E  management  information  research  performed  by  Group  Monterey's  ELT 
Specialist  (paygrade  E-5). 

e.  Specific  ELT  case  research  performed  by  Group  Monterey's  Officer-of-the-Day 
(OOD). 

f.  Specific  SAR  case  research  performed  by  Group  Monterey's  Ofilcer-of-the-Day 
(OOD). 

g.  Assume  2,000  man-hours  per  year. 

h.  Development  of  SARELTIS  performed  by  two  lieutenants  (paygrade  0-3). 

i.  All  costs  and  benefits  were  evaluated  based  on  the  Coast  Guard's  Annual 
Standard  Personnel  Costs  [Ref.  1].  The  pertinent  costing  data  is  as  follows: 

1)  paygrade  E-5  —  S18,500  (S9.25  /  hour) 

2)  paygrade  E-6  —  522,300  (511.15  /  hour) 

3)  paygrade  0-3  —  533,900  (516.95  /  hour) 

j.  The  aimual  SAR  case  load  is  386  (Table  1). 

k.  The  annual  ELT  case  load  is  444  (Table  2). 

l.  'The  annual  SAR  and  ELT  case  loads  will  remain  relatively  constant  over  the 
expected  life  of  the  project. 

m.  SARELTIS  has  an  expected  5  year  project  life. 

n.  Approximately  three  years  of  historical  SAR  and  ELT  case  data  will  be  entered 
upon  system  implementation. 

In  order  to  better  understand  how  the  actual  computations  contained  in  this 
section  were  derived,  a  synopsis  of  both  the  existing  and  proposed  systems  will  be 
discussed  below. 


1.  Existing  Method 

ELT  and  SAR  case  load  research  is  currently  not  conducted  due  to  the 
amount  of  time  necessary  to  perform  the  research  and  the  inaccessibility  of  the 
information.  It  has  been  estimated  by  Coast  Guard  Group  Monterey  OOD's  that  such 
research  would  take  a  minimum  of  1.5  to  2.0  hours  to  search  through  their  existing 
records  to  locate  any  available  pertinent  information  if  the  information  could  be  found 
at  all. 

Management  information  research  on  ELT  cases  is  performed  by  the  Group's 
ELT  Specialist  (paygrade  E-5)  who  must  manually  compile  statistics  on  a  weekly  basis. 
He  estimates  that  it  takes  a  minimum  of  1  man-day  to  perform  the  required  research 
and  the  preparation  of  subsequent  required  reports. 

Management  information  research  on  SAR  cases  is  performed  by  the  Group's 
OOD  (paygrade  E-6)  who  must  manually  compile  statistics  on  a  monthly  basis.  It  is 
estimated  that  this  research  takes  a  minimum  of  3  man-days  to  perform  the  research 
and  to  prepare  the  required  reports. 

2.  Proposed  System 

ELT  and  SAR  specific  case  research  will  be  handled  through  customized 
database  query  program  modules.  It  is  estimated  each  query  would  take  an  average  of 
3  minutes  to  enter  the  search  criteria  and  perform  the  actual  search. 

Management  information  research  on  ELT  cases  would  be  done  through  the 
use  of  customized  reports  where  users  can  define  specific  timeframes,  vessels, 
violations,  or  personnel  to  analyze  or  search.  It  is  estimated  that  it  would  take 
approximately  30  minutes  to  perform  a  series  of  reports  relating  to  ELT  information. 

Management  information  research  on  SAR  cases  would  be  done  through  the 
use  of  customized  reports  where  users  can  define  specific  timeframes,  vessels,  or 
personnel  to  analyze  or  search.  It  is  estimated  that  it  would  take  approximately  30 
minutes  to  perform  a  series  of  reports  relating  to  SAR  information. 


3.  Existing  Method  Analysis 


Recurring  Costs: 

SAR  Case  Load  Research: 

S22.30 
386 


58,607.80 

Retrieving  specific  SAR  case  data: 

1.5  hours  X  511.15  (paygrade  E-6)  516.73 

Annual  SAR  case  load  386 


56,457.78 


Filling  out  required  SAR  case  documentation: 

2  hours  X  511.15  (paygrade  E-6) 

Annual  SAR  case  load 


Total  SAR  Case  Load  Research: 


515,065.58 


ELT  Case  Load  Research: 

Filling  out  required  ELT  case  documentation: 

1  hour  X  511.15  (paygrade  E-6)  511.15 

Annual  ELT  case  load  444 


54,950.60 

Retrieving  specific  ELT  case  data: 

1.5  hours  X  511.15  (paygrade  E-6)  516.73 

Annual  ELT  case  load  444 


57,428.12 


Total  ELT  Case  Load  Research: 


512,378.72 
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SAR  Management  Information  Research: 

Researching  SAR  documentation: 

4  man-days  x  511.15/hour  x  8  hours 

5356.80 

(paygrade  E-6) 

Monthly  Research 

12 

Total  SAR  Management  Information  Research 

54,281.60 

ELT  Managment  Information  Research: 

Researching  ELT  documentation: 

1  man-day  x  59.25  x  8  hours 

574.00 

(paygrade  E-5) 

Weekly  Research 

52 

Total  ELT  Management  Information  Research 

53,848.00 

Total  Existing  Method  Costs  (Recurring): 


Total  SAR  Case  Load  Research:  515,065.58 

Total  ELT  Case  Load  Research:  512,378.72 

Total  SAR  Management  Information  Research  54,281.60 

Total  ELT  Management  Information  Research  53,848.00 


Total  Recurring  Costs:  535,573.90 
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4.  Proposed  Method  Analysis: 


Non-Recurring  Costs: 


First  Prototype  Development  (using  *  ::base  4000): 


250  man-hours  x  SI 6.95  (paygrade  0-3) 

S4, 237.50 

Second  Prototype  Development  (usiiig  ReQuest): 

200  man-hours  x  SI 6.95  (paygrade  0-3) 

S3, 390.00 

SARELTIS  Development  (using  R:base  5000): 

2000  man-hours  x  SI 6.95  (paygrade  0-3) 

S33, 900.00 

SARELTIS  Initial  Historical  SAR  Data  Loading: 

.25  hours  x  SI  1.1 5  (paygrade  E-6) 

386  cases  x  3  years 

S2,79 

1,158 

S3, 230.82 

SARELTIS  Initial  Historical  ELT  Data  Loading: 

.25  hours  x  SI  1.15  (paygrade  E-6) 

444  cases  x  3  years 

S2.79 

1332 

53,716.28 

Hardware  /  Software  Costs: 

IBM  PC-XT  compatible  computer  and  printer 

R:base  5000  software 

S2,000.00 

S400.00 

52,400.00 

Total  Non-Recurring  Costs: 

S50,874.60 
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Recurring  Costs: 


SAR  Case  Load  Research: 

Filling  out  required  SAR  case  documentation: 

2  hours  X  S1L15  (paygrade  E-6)  S22.30 

Annual  SAR  case  load  386 

S8, 607.80 

Loading  SARELTIS  with  SAR  case  data: 

.25  hours  x  SI  1.15  (paygrade  E-6)  S2.79 

Annual  SAR  case  load  386 

51,076.94 

Retrieving  specific  SAR  case  data: 

.05  hours  X  $11.15  (paygrade  E-6)  S0.56 

Annual  SAR  case  load  386 

S216.16 

Total  SAR  Case  Load  Research:  59,900.90 
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ELT  Case  Load  Research: 


Filling  out  required  ELT  case  documentation: 

1  hour  X  $11.15  (paygrade  E-6)  $11.15 

Annual  ELT  case  load  444 


$4,950.60 

$2.79 

444 


$1,238.76 

$0.56 

444 


$248.64 


Total  ELT  Case  Load  Research:  $6,438.00 


Retrieving  specific  ELT  case  data: 

.05  hours  X  $11.15  (paygrade  E-6) 
Annual  ELT  case  load 


Loading  SARELTIS  with  ELT  case  data: 

.25  hours  x  $11.15  (paygrade  E-6) 
Annual  ELT  case  load 
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SAR  Management  Information  Research: 

Researching  SAR  documentation: 

.5  hours  X  S11.15  (paygrade  E-6)  S5.58 

Weekly  Research  12 

Total  SAR  Management  Information  Research  S66.96 


ELT  Managment  Information  Research: 

Researching  ELT  documentation: 

.5  hours  X  SI  1.15  (paygrade  E-6)  S5.58 

Weekly  Research  12 

Total  ELT  Management  Information  Research  S66.96 

System  Manager  Data  Validation: 

100  hours  X  SI  1.15  (paygrade  E-6)  SI, 115.00 

Hardware  Corrective  Maintenance:  S500.00 

Software  Corrective  Maintenance:  S500.00 


Total  Recurring  Costs: 


518,587.82 


5.  Proposed  versus  Existing  Method  Cost  Comparisons: 


Total  Existing  Non-Recurring  Costs 
Total  Proposed  Non-Recurring  Costs 

Additional  Non-Recurring  Costs 

Total  Existing  Recurring  Costs 
Total  Proposed  Recurring  Costs 

Total  Recurring  Savings 

Payback  Period  (Ref.  2:  p.  319]: 

First  Year  Costs 
First  Year  Benefits 

Payback  Period  =  Costs  /  Benefits 

=  550,874.60/  516,986.08 
=  2.99  years 

Internal  Rate  of  Return  (IRR): 

Estimated  First  Year  Costs 

Estimated  First  Year  Benefits 
Estimated  Second  Year  Benefits 
Estimated  Third  Year  Benefits 
Estimated  Fourth  Year  Benefits 
Estimated  Fifth  Year  Benefits 

Calculated  IRR  [Ref  2:  p.  320-322]: 


50.00 

550,874.60 

550,874.60 

535,573.90 

518,587.82 

516,986.08 


550,874.60 

516,986.08 


550,874.60 

516,986.08 

516,986.08 

516,986.08 

516,986.08 

516,986.08 


III.  TECHNICAL  FEASIBILITY 


Can  the  system  be  implemented  using  current  technology  [Ref.  2:  p.  274]?  This  is 
the  question  that  must  be  answered  to  determine  and  evaluate  the  technical  feasibility 
of  a  project.  For  the  SARELTIS  project,  the  issue  of  current  technology  was 
approached  from  two  different  perspectives.  First,  was  the  concept  of  a  historical 
database  system  that  could  provide  on-line  query  information  and  complex 
management  reports  an  implementable  concept  within  the  scope  of  a  thesis  project? 
And  second,  was  this  concept  implementable  within  the  constraints  of  the  Coast  Guard 
standard  database  language,  ReQuest®?  During  the  last  year,  two  limited  scale 
prototypes  were  developed  by  the  authors  to  answer  these  two  questions  of  project 
technical  feasibility. 

A.  LAW  ENFORCEMENT  INFORMATION  SYSTEM 

Concept  implementability  was  the  question  that  was  addressed  by  the  design  of 
the  Coast  Guard  Law  Enforcement  Information  System,  the  first  prototype.  This 
prototype  was  programmed  on  the  Coast  Guard  Standard  Terminal  System  using  the 
relational  database  system  R:base  4000®,  and  provided  historical  information  on 
vessels,  operators,  and  vessel  boardings.  It  was  designed  to  facilitate  the  retrieval  of 
"intelligence-type"  information  to  better  prepare  boarding  officers  and  boarding  petty 
officers  prior  to  stepping  onto  a  vessel.  It  also  provided  statistical  information  of  the 
locations,  times,  dates,  and  the  types  of  vessels  that  were  boarded. 

The  logical  design  of  this  prototype  included  the  entities  of  an  operator,  a  vessel, 
and  a  boarding.  To  implement  this  logical  design,  additional  relations  were  added  as 
required  to  provide  the  necessary  intersection  mechanisms,  rules,  forms,  reports  and 
editing  constraints.  All  restrictions  concerning  the  legal  values  of  attributes  and 
interrelational  constraints  are  stated  and  controlled  through  the  use  of  the  R:base  4000 
rules  feature.  Menu  chaining  was  used  to  provide  a  user  friendly  system,  and  menus 
and  programs  were  written  in  and  controlled  through  the  use  of  the  R:base  4000 
command  language.  The  R:base  4000  environment  proved  to  be  very  capable  of 
supporting  this  limited  scale  application. 

This  prototype  was  successfully  demonstrated  in  December  1986.  The  prototype 
demonstrated  the  capability  of  complex  nautical  chart  searching  algorithms  for  use  in 


making  key  management  decisions  for  "high  incident  areas"  and  "high  incident  times" 
and  the  capability  of  searching  the  database  for  vessels  of  interest  within  a  given  search 
criteria. 

Therefore,  through  the  use  of  the  Law  Enforcement  Information  System 
prototype,  the  question  of  concept  implementability  was  successfully  satisfied. 

B.  SEARCH  AND  RESCUE  INTELLIGENCE  INFORMATION  SYSTEM 

Since  all  Coast  Guard  "production"  database  management  system 
implementations  are  required  to  use  the  Coast  Guard  standard  database  language, 
ReQuest,  another  limited  scale  prototype  was  developed  to  assess  the  feasibility  of 
application  development  within  the  constraints  imposed  by  Coast  Guard  directives. 
The  development  and  testing  of  this  prototype,  the  Search  and  Rescue  (SAR) 
Intelligence  Information  System,  occurred  during  June  1987. 

The  Search  and  Rescue  Intelligence  Information  System  was  programmed  on  the 
Coast  Guard  Standard  Terminal  System  using  the  language  ReQuest,  and  provided 
historical  information  on  vessels,  owners,  and  vessel  search  and  rescue  cases.  It  was 
designed  to  facilitate  the  retrieval  of  detailed  vessel  and  owner  historical  information  to 
better  enable  the  SAR  case  personnel  to  conduct  the  SAR  mission. 

The  entities  of  an  owner,  a  vessel,  and  a  SAR  case  were  represented  within  the 
logical  structure  of  this  prototype.  The  physical  structure  included  ah  intersection 
record  to  link  the  owner  and  vessel  entities.  All  attribute  and  interrelational 
constraints  were  specified  and  controlled  through  the  attribute  descriptions.  Forms 
and  reports  were  created  and  stored  as  individual  files,  independent  of  the  database 
structure.  Menus  were  very  limited  as  ReQuest  does  not  allow  menu  chaining  beyond 
the  top  level.  Reports  w'ere  also  very  limited  due  to  the  restrictions  imposed  by 
ReQuest  concerning  multiple  relation  searching  and  reporting.  The  system  was 
designed  to  replicate  the  functionality  of  the  first  prototype  as  much  as  possible, 
however,  the  ReQuest  environment  did  not  allow  this  parallelism. 

C.  INADEQUACIES  OF  REQUEST  FOR  THE  SARELTIS  PROTOTYPE 

Numerous  problems  were  encountered  during  the  development  of  the  second 

prototype  that  were  directly  attributable  to  the  use  of  the  language  ReQuest.  This 
language  is  very  limited  in  scope  and  inflexible  in  nature.  It  does  not  support  any  type 
of  command  language  for  program  or  menu  construction.  To  successfully  utilize  an 
application  developed  within  this  environment,  the  user  must  be  very  knowledgeable 


and  fully  understand  both  the  language  and  the  application.  Unlike  more  flexible 
programming  environments,  the  details  of  the  language  and  the  underlying  structure  of 
the  application  cannot  be  made  transparent  to  the  user.  Additionally,  the  true 
strengths  of  a  relational  system,  namely  the  ability  to  join  and  search  multiple  tables 
for  reports  or  ad-hoc  queries,  is  absent  in  this  language.  Reports  are  limited  to  the  use 
of  two  tables  at  most,  with  certain  restrictions,  and  information  requested  by  ad-hoc 
queries  may  only  come  from  a  single  predefined  table.  Any  tables  that  result  from  a 
relational  operation,  such  as  a  join,  cannot  then  be  searched  by  an  adhoc  query. 
Therefore,  to  provide  the  desired  searching  functionality  within  the  SARELTIS 
prototype,  the  physical  implementation  would  have  to  consist  of  a  single  relation,  and 
would  be  subject  to  all  the  anomalies  inherent  in  a  first  normal  form  relational 
database  [Ref.  3:  p.  286-290].  Speed  is  also  a  major  problem.  To  accomplish  even  the 
simplest  tasks  required  a  great  deal  of  waiting  time  on  the  part  of  the  user.  Finally,  the 
security  system  provided  by  the  language  did  not  function  properly.  As  a  result  of 
these  constraints  imposed  by  the  ReQuest  language,  it  was  determined  that  a  different 
environment  would  have  to  be  used  to  successfully  implement  the  SARELTIS 
prototype. 

D.  PROPOSED  LANGUAGE  ENVIRONMENT 

Since  ReQuest  was  determined  to  be  infeasible  as  a  language  environment  for  the 
SARELTIS  project,  the  additional  languages  available  for  the  Coast  Guard  Standard 
Terminal  System  were  examined  to  determine  if  any  were  suitable.  At  present,  the  only 
additional  language  available  for  the  standard  terminal  and  the  CTOS  operating  system 
is  the  R:base  5000  relational  database  environment.  As  this  is  an  updated  and 
enhanced  version  of  the  language  used  for  the  first  prototype,  it  was  determined  that 
R;base  5000  would  be  used  for  the  SARELTIS  project.  Unfortunatly,  the  R:base  5000 
environment  was  not  available  locally  for  the  Coast  Guard  Standard  Terminal  System. 
The  language  was,  however,  available  for  the  IBM  DOS  operating  system.  Therefore, 
the  decision  was  made  to  develop  the  SARELTIS  prototype  utilizing  the  R:base  5000 
environment  within  the  IBM  DOS  operating  system.  This  decision  allowed  the 
developraent  of  a  fully  capable  product  that  could  ultimately  be  converted  for  use  on 
the  Coast  Guard  Standard  Terminal  System,  and  established  full  technical  feasibility 
for  the  SARELTIS  prototype. 


IV.  USERS  GUIDE 


A.  INTRODUCTION 

The  following  user's  guide  is  written  assuming  that  its  intended  user  will  be 
utilizing  an  IBM  PC-XT  or  an  IBM  compatible  computer  with  a  5.25  inch  floppy  disk 
drive,  a  minimum  of  640K  internal  memory,  a  hard  disk  (minimum  lOM  Bytes),  a 
printer  with  a  normal  size  carriage,  and  using  the  DOS  operating  system.  If  a 
different  hardware  configuration  is  used,  the  user  should  refer  to  the  owner's  manual 
to  see  how  to  load  R:base  5000  and  to  determine  if  the  configuration  will  support  the 
database  system  and  SARELTIS. 

SARELTIS  was  designed  to  assist  Coast  Guard  Group  Monterey  in  automating 
historical  information  and  intelligence  retrieval.  To  this  end,  SARELTIS  provides 
comprehensive  input  and  modify  programs  to  assist  the  user  in  easily  entering 
information  and  correcting/updating  existing  information  in  the  system.  Additionally, 
a  realtime  query  module  allows  users  to  access  system  database  records  quickly  and 
easily  in  order  to  provide  the  most  current  intelligence  and  historical  information  in  a 
timeframe  that  can  be  used  in  operational  missions. 

This  user's  guide  is  an  attempt  to  direct  users  through  the  major  portions  of 
SARELTIS.  A  recent  thesis  by  LCDR  J.  M.  Graham  [Ref  4]  provided  some  of  the 
framework  and  content  of  this  section.  Due  to  the  actual  size  of  the  SARELTIS 
program  and  the  desire  to  keep  the  user's  guide  short  and  easy  to  understand,  the 
technical  inner  workings  of  each  program  will  not  be  discussed.  Users  desiring  to  know 
more  information  should  consult  the  R:base  5000  teclmical  manuals  or  contact  one  of 
the  authors  for  additional  clarification.  The  following  topics  will  be  addressed  to  assist 
the  user  with  SARELTIS  operations: 

•  System  Startup  Procedures 

•  Security 

•  Operations 

•  Exiting 

•  Maintenance 
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B.  SYSTEM  STARTUP  PROCEDURES 

1.  Machine  Conflguration  Requirements 

Due  to  the  size  of  SARELTIS  (over  800K  in  database  structure  and  over 
500K  in  application  program  modules),  the  user  must  ensure  that  the  machine  is 
properly  initialized  with  a  CONFIG.SYS  file  which  contains  the  following: 

*  Buffers  =  5 

*  Files  *  20 

If  this  file  does  not  exist  or  does  not  contain  the  information  listed  above,  the  user  will 
need  to  build  or  modify  the  CONFIG.SYS  file  accordingly.  The  user  should  consult 
the  DOS  Manual  for  the  specific  procedure  necessary  to  create  or  alter  a 
CONFIG.SYS  file.  Once  the  CONFIG.SYS  file  has  been  properly  created/modified, 
the  computer  should  be  reset/booted  to  allow  this  new  machine  configuration  to  be 
installed.  To  reset  the  system,  .  the  user  presses  the  following  three  keys 
simultaneously:  <CTRL>  <ALT>  <DEL>.  After  the  machine  has  been  reset, 
the  computer  will  ask  the  user  for  the  current  date  and  current  time.  It  is  very 
important  that  the  user  enter  the  correct  time  and  date  into  the  system  as  the  system 
time  and  date  are  used  by  many  application  program  modules.  After  each  date  and 
time  entry,  the  user  should  press  the  <  ENTER  >  key. 

2.  Initial  Program  Loading 

If  all  has  proceeded  satisfactorily  from  the  above  section,  the  screen  should 
display  the  following  system  prompt  indicating  that  you  are  working  from  the  hard 
disk:"C:>". 

Use  the  DOS  MKDIR  (make  directory)  command  to  create  a  directory  to 
store  the  R:base  5000  programs  by  typing  "MKDIR  C:\R5K"  at  the  system  prompt. 
Next,  use  the  DOS  CHDIR  (change  directory)  command  to  change  the  working 
directory  to  the  newly  created  R:base  5000  directory  by  typing  "CHDIR  C:\R5K"  at 
the  system  prompt.  At  this  point  you  are  ready  to  load  the  R:base  5000  software  if  it 
is  not  already  been  installed.  To  load  the  R:base  5000  software  [Ref.  5:  p.  1.3  -  1.6],  do 
the  following: 

1.  Insert  one  of  the  R:base  5000  disks  into  floppy  drive  a. 

2.  Copy  all  files  from  the  disk  to  the  newly  created  R:base  5000  directory  by 
entering  "COPY 

3.  When  all  of  the  files  have  been  copied  from  the  floppy  disk  to  the  R:base  5000 
directory  on  your  hard  disk,  remove  the  floppy  disk  from  the  floppy  drive. 
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4.  Repeat  steps  2  through  4  until  all  Ribase  5000  floppy  disks  have  been  copied  to 
your  hard  disk. 

After  you  have  loaded  the  R:base  5000  database  software,  you  are  now  ready 
to  load  the  SARELTIS  application.  SARELTIS  has  been  designed  to  operate  from  its 
own  directory  (DBDIR)  which  the  user  must  create.  To  create  another  directory,  use 
the  DOS  MKDIR  command  and  type  "MKDIR  C:VDBD1R".  Next,  you  must  copy 
the  SARELTIS  database  and  its  application  and  ancillary  programs  to  the  DBDIR 
directory. 

The  SARELTIS  database  is  stored  on  4  diskettes  labeled: 

•  SARELTIS  1 

•  SARELTIS  2 

•  SARELTIS  3 

•  SARELTIS  4 

The  application  programs  are  stored  on  2  diskettes  labeled: 

•  SARELTIS  APPLICATIONS  1 

•  SARELTIS  APPLICATIONS  2 

The  source  code  for  the  applications  programs  are  stored  on  2  diskettes  labeled: 

•  SARELTIS  APPLICATIONS  SOURCE  CODE  1 

•  SARELTIS  APPLICATIONS  SOURCE  CODE  2 

The  application  program  source  code  disks  are  provided  for  maintenance  purposes 
only.  The  ancillary  programs  are  stored  on  1  diskette  labeled  SARELTIS 
ANCILLARY  PROGRAMS.  To  load  SARELTIS,  do  the  following: 

1.  Insert  SARELTIS  I  into  the  A:  floppy  drive. 

2.  Type  the  following  DOS  command:  "RESTORE  a:  \DBDIR  You  will  be 
prompted  by  the  system  to  load  SARELTIS  2,  3,  and  4. 

3.  Insert  SARELTIS  APPLICATIONS  1  into  the  A:  floppy  drive. 

4.  Type  the  following  DOS  command:  "RESTORE  a:  \DBDIR ".  You  will  be 
prompted  by  the  system  to  load  SARELTIS  APPLICATIONS  2. 

5.  Insert  the  SARELTIS  ANCILLARY  PROGRAMS  floppy  disk  into  the  A: 
floppy  drive. 

6.  Type  the  following  DOS  command:  "COPY  a:*.*". 

You  have  now  loaded  the  SARELTIS  database  and  its  application  programs  and  are 
now  ready  to  start  the  program.  To  start  SARELTIS,  enter  the  following  at  the 
system  prompt:  "SARSYS".  This  will  automatically  take  you  to  a  security  module  that 
will  ask  for  a  user  name  and  password.  The  default  user  name  is  "SYSOP"  and  the 


default  user  password  is  "SARSYS".  If  you  wish  to  protect  the  system,  see  the  next 
section  on  security. 

C.  SARELTIS  SECURITY 

One  of  SARELTIS'  ancillary  programs  is  called  "STARTUP.BIN".  This 
program  is  a  compiled/binary  program  which  prints  the  initial  SARELTIS  title  screen 
and  provides  the  security  module  to  gain  access  to  the  system.  As  discussed  in  the 
previous  section,  the  system  has  a  default  user  name  and  password.  These  can  be 
changed  very  easily  by  the  user  (it  is  recommended  that  the  user  become  somewhat 
familiar  with  R:base  5000  and  SARELTIS  before  changing  the  security).  Using  a  text 
editor  or  a  word  processor  in  the  non-document  mode,  open  the  ancillary  program 
"STARTUP. PRG".  Approximately  halfway  through  the  program,  you  will  find  the 
following  command: 

"if  username  eq  "SYSOP"  and  userpass  eq  "SARSYS"  then" 

By  changing  "SYSOP"  to  another  user  name  and  altering  "SARSYS"  to  another 
password,  you  can  protect  your  own  system.  Once  you  have  changed  the  user  name 
and  password,  ensure  that  you  write  it  down  and  store  it  in  a  safe  place.  To  activate 
the  new  security  password,  you  must  recompile  "STARTUP.PRG".  To  recompile 
STARTUP.PRG,  do  the  following: 

1.  At  the  system  prompt,  type  "RCOMPILE"  to  run  the  R:base  5000  program 
compiler.  The  system  will  then  display  the  RCOMPILE  menu  listing  eiglit 
possible  options. 

2.  Select  the  option  to  "Convert  an  ASCII  command  file  to  a  binary  command 
file"  by  entering  a  "1".  The  cursor  should  highlight  the  "(1)"  next  to  the  desired 
menu  option. 

3.  Press  the  <  ENTER >  key  to  execute  the  menu  option. 

4.  The  system  will  ask  you  to  enter  the  name  of  the  ASCII  command  file  to 
convert.  Enter  "STARTUP.PRG"  and  press  the  <  ENTER  >  key. 

5.  RCOMPILE  will  then  respond  asking  for  the  name  of  the  backup  file.  Since  we 
do  not  need  a  backup  of  this  file,  press  the  <  ENTER  >  key. 

6.  The  system  will  then  ask  for  the  name  of  the  binary  command  file  that  you  wish 
to  create.  In  the  space  provided,  enter  "STARTUP.BIN"  and  press  the 
<  ENTER  >  key.  The  system  will  now  re-compile  the  program.  At  the 
completion  of  the  compilation,  RCOMPILE  will  return  you  to  its  menu  screen. 
Enter  an  "8"  and  press  <  ENTER>  to  exit  from  the  RCOMPILE  program. 

You  have  now  changed  the  security  on  the  system  and  the  new  user  name  and 

password  have  been  activated.  To  ensure  that  the  system  is  fully  secure,  remove  the 


"STARTUP.PRG"  file  by  typing  the  following  DOS  command:  "ERASE 
STARTUP.PRG".  This  will  prevent  any  unauthorized  users  from  discovering  the  new 
security  password  by  merely  typing  out  the  "STARTUP.PRG"  file.  If  you  wish  to  alter 
the  security  password  after  this  point,  you  must  copy  the  "STARTUP.PRG"  file  to  the 
hard  disk  from  the  SARELTIS  APPLICATIONS  SOURCE  floppy  disk. 

D.  SARELTIS  OPERATIONS 

1.  Menu  System  Overview 

The  man-machine  interface  for  SARELTIS  is  a  series  of  menus.  Beginning 
with  the  SARELTIS  Master  Menu  (Figure  4.1),  the  user  can  branch  to  a  desired 
function.  Each  menu  allows  the  user  to  return  to  the  previous  menu.  All  menu 
selections  are  grouped  by  functional  area  to  provide  the  user  with  a  more  efficient 
operating  environment.  Examples  of  the  remaining  menu  screens  are  presented  in 
Figures  4.2  through  4.4  and  Figures  4.7  through  4.13  Detailed  functional  descriptions 
of  each  menu  option  can  be  reviewed  by  examining  Appendix  D. 

2.  Starting  SARELTIS 

To  start  SARELTIS  and  to  get  to  the  main  menu  screen  requires  the  user  to 
type  "SARSYS"  at  the  system  prompt  and  pressing  the  <  ENTER  >  key.  As  described 
in  the  security  section  above,  the  user  must  supply  the  correct  user  name  and 
password  in  order  to  gain  access  to  the  system.  Once  the  proper  user  name  and 
password  are  entered,  the  system  is  automatically  initialized  and  the  SARELTIS 
Master  Menu  appears.  The  user  is  free  to  select  any  option  by  either  moving  the 
cursor  up/down  (using  the  arrow  keys  on  the  numeric  pad)  or  by  typing  the  actual 
number  of  the  option  desired  to  be  executed.  Once  a  selection  is  made,  pressing  the 
<  ENTER  >  key  will  execute  the  option.  The  user  will  then  be  presented  with  another 
menu  screen  or  an  actual  function  will  be  performed.  Short  descriptions  of  each  menu 
option  are  presented  in  the  following  section. 

3.  SARELTIS  Menu  Options 

a.  SARELTIS  Master  Menu  {Figure  4.1) 

Selecting  option  (1),  INPUT  INFORIVIATION,  displays  the  SARELTIS 
INPUT  MENU  (Figure  4.2).  Option  (2)  calls  the  SARELTIS  MODIFY  MENU 
(Figure  4.3).  The  real-time  query  menu,  QUERY  INFORMATION  MENU  (Figure 
4.4),  is  displayed  upon  selection  of  choice  (3).  The  REPORTS  MAIN  MENU  (Figure 
4.7)  is  called  when  option  (4)  is  chosen.  Option  (5)  provides  the  user  with  the 
UTILITIES  MENU  (Figure  4.13).  User-designed  queries  or  reports  may  be 


constructed  by  selecting  option  (6),  AD  HOC  QUERIES,  which  returns  the  user  to 
the  R:base  5000  command  prompt  ''R>  To  exit  SARELTIS,  the  user  selects  option 
(7),  EXIT  SARELTIS. 


Figure  4.1  SARELTIS  Master  Menu. 


b.  Input  Information  Menu  {Figure  4.2) 

The  user  is  provided  with  eight  options  to  enter  data  into  SARELTIS.  The 
user  has  the  choice  of  entering  SAR  information  alone  by  selecting  option(l)  or 
entering  SAR  information  with  boarding  information  by  choosing  option  (2).  Option 
(3)  allows  the  user  to  enter  in  multiple  SAR  units.  Entering  in  boarding  information 
alone  is  performed  by  choosing  option  (4).  Selecting  option  (5)  will  allow  the  user  to 
enter  in  additional  vessel  owners.  Vessel  intelligence  and  personnel  intelligence  are 
entered  into  the  system  by  selecting  options  (6)  or  (7).  To  return  to  the  SARELTIS 
MASTER  MENU,  the  user  selects  option  (8). 

c.  SAREL  TIS  Modify  Menu  {Figure  4.3) 

SARELTIS  data  can  be  modified  using  one  of  the  nine  available  options. 
Option  (1)  allows  the  user  to  update  historical  SAR  information.  By  selecting  option 
(2),  existing  boarding  information  can  be  modified.  Vessel  information  may  be 
changed  by  selected  option  (3).  Demographic  data  maintained  on  vessel  owners  and 
operators  can  be  altered  by  choosing  option  (4).  If  the  user  desires  to  change  the  name 
of  an  owner  or  an  operator  and  this  individual  is  both  an  owner  and  an  operator,  the 
name  must  be  changed  in  both  places.  Information  regarding  Group  .Monterey  SAR 
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SARELTIS  INPUT  MENU 

(1)  INPUT  SAR  INFORMATION  (NO  BOARDING) 

(2)  INPUT  SAR  INFORMATION  WITH  BOARDING 

(3)  INPUT  MULTIPLE  SAR  UNITS 

(4)  INPUT  BOARDING  INFORMATION 

(5)  INPUT  MULTIPLE  VESSEL  OWNERS 

(6)  INPUT  VESSEL  INTELLIGENCE 

(7)  INPUT  PERSONNEL  INTELLIGENCE 

(8)  RETURN  TO  MASTER  MENU 


Figure  4.2  SARELTIS  Input  Menu. 

units  can  be  changed  by  selecting  option  (5).  Options  (6)  and  (7)  allow  the  user  to 
manipulate  vessel  and  personnel  intelligence  information.  The  vessel  HIN  may  be 
changed  by  selecting  option  (8)  if  it  was  previously  entered  incorrectly.  To  return  to 
the  MASTER  MENU,  the  user  selects  option  (9). 


SARELTIS  MODIFY  MENU 

(1)  MODIFY  SAR  INFORMATION 

(2)  MODIFY  BOARDING  INFORMATION 

(3)  MODIFY  VESSEL  INFORMATION 

(4)  MODIFY  OWNER/OPERATOR  INFORMATION 

(5)  MODIFY  SAR  UNIT  INFORMATION 

(6)  MODIFY  VESSEL  INTELLIGENCE 

(7)  MODIFY  PERSONNEL  INTELLIGENCE 

(8)  MODIFY  VESSEL  HIN 

(9)  RETURN  TO  .MAIN  .MENU 


Figure  4.3  SARELTIS  Modify  Menu.  I 
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d.  SARELTIS  Query  Menu  (Figure  4.4) 

The  real-time  query  capability  of  SARELTIS  is  executed  through  the 
invocation  of  this  menu.  By  selecting  Option  (1),  the  user  can  perform  a  vessel  query 
based  on  vessel  Hull  Identification  Number  (HIN),  vessel  name,  vessel  number,  or 
vessel  official  number.  The  query  module  will  search  the  entire  vessel  table  attempting 
to  find  potential  matches  to  the  user's  selection  criteria.  Figure  4.5  shows  the  chaining 
of  searches  through  the  database  when  selecting  the  vessel  query  option.  Similarly, 
the  user  can  search  through  the  database  using  a  person's  last  name  and  first  name  by 
choosing  option  (2).  The  query  program  will  find  all  potential  matches  and  ask  the 
user  to  select  the  correct  individual  to  perform  an  intelligence/history  check.  Figure  4,6 
shows  the  chaining  of  searches  through  the  database  for  the  personnel  query  option. 
To  return  to  the  SARELTIS  MASTER  MENU,  the  user  selects  option  (3). 


SARELTIS  QUERY  MENU 

(1)  VESSEL  QUERY 

(2)  PERSONNEL  QUERY 

(3)  .  RETURN  TO  MAIN  MENU 


Figure  4.4  SARELTIS  Query  Menu. 

e.  SARELTIS  Reports  Main  Menu  (Figure  4.7) 

Reports  in  SARELTIS  are  broken  down  into  mission/functional  area 
groups  that  can  be  selected  from  the  Reports  Main  Menu.  This  menu  calls  other  sub¬ 
menus  which  represent  the  available  choices  within  the  specific  mission/ functional  area. 
Selecting  option  (1)  will  allow  the  user  the  display  the  INTELLIGENCE  REPORTS 
MENU  (Figure  4.8).  Option  (2)  will  invoke  the  BOARDING  REPORTS  MENU 
(Figure  4.9).  The  SAR  REPORTS  MENU  (Figure  4.10)  is  executed  by  choosing 
option  (3).  Option  (4)  will  call  the  VESSEL  REPORTS  MENU  (Figure  4.11).  By 
selecting  option  (5),  the  user  will  see  the  available  choices  from  the  PERSONNEL 
REPORTS  MENU  (Figure  4.12).  Detailed  descriptions  of  each  report  function  can  be 
found  in  Appendix  D.  To  return  to  the  MASTER  MENU,  the  user  selects  option  (6). 
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Figure  4.6  Personnel  Query  Search  Chain. 
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SARELTIS  REPORTS  MAIN  MENU 

(1)  INTELLIGENCE  REPORTS 

(2)  BOARDING  REPORTS 

(3)  SAR  REPORTS 

(4)  VESSEL  REPORTS 

(5)  PERSONNEL  REPORTS 

(6)  RETURN  TO  MAIN  MENU 


Figure  4.7  SARELTIS  Reports  Main  Menu. 


SARELTIS  INTELLIGENCE  REPORTS  MENU 

(1)  VESSEL  INTELLIGENCE  ANALYSIS  (EPIC) 

(2)  VESSEL  PROFILE  FOR  INDIVIDUAL  VIOLATIONS  ANALYSIS 

(3)  PERSONNEL  INTELLIGENCE  SUMMARY 

(4)  RETURN  TO  REPORTS  MENU 


Figure  4.8  SARELTIS  Intelligence  Reports  Menu. 

/.  SAREL  TIS  Utilities  Mem  {Figure  4,13) 

From  the  Utilities  .Menu,  the  user  can  initialize  SARELTIS  by  selecting 
option  (1).  This  program  is  automatically  invoked  at  the  start  of  any  SARELTIS 
session  and  is  also  executed  upon  exiting  the  system.  Option  (2)  will  pack  or  compress 
the  database  to  more  efficiently  use  the  existing  limited  hard  disk  space.  It 
recommended  that  the  user  perform  a  pack  of  the  database  at  least  once  per  month. 
Prior  to  executing  a  pack  of  the  database,  the  user  should  make  a  backup  copy  of  the 
SARELTIS  database  in  the  event  that  an  unanticipated  error  should  occur  during  the 
packing  process.  Option  (3)  will  display  the  procedures  for  backing  up  the  database. 
In  order  to  backup  the  database,  the  user  must  exit  from  SARELTIS  (via  option  (7) 
on  the  MASTER  xMENU)  and  execute  a  DOS  BATCH  File  located  on  the  hard  disk 


43 


1 


•) 


nrwwwww 


w  ITT  \r 


▼W  yi  ifn  l/T  IM  *»  Tj  r/)vwrrmT^i  7?  r  v.wT^i^v.ruTur; 


SARELTIS  BOARDING  REPORTS  MENU 

(1)  VIOLATION/UNSAFE  CONDITION  FREQUENCY 

(2)  BOARDINGS  SUMMARY  LISTING 

(3)  CME  DECALS:  ANALYSIS  OF  VESSELS  BOARDED 

(4)  LARGE  SCALE  AREA  BOARDING  LOCATION  ANALYSIS 

(5)  SMALL  SCALE  AND  COASTLINE  AREA  BOARDING 
LOCATION  ANALYSIS 

(6)  SMALL  BOAT  OPERATIONS  AREA  BOARDING  LOCATION 
ANALYSIS 

(7)  TIME  OF  DAY  BOARDING  CASE  ANALYSIS 

(8)  RETURN  TO  REPORTS  MENU 


Figure  4,9  SARELTIS  Boarding  Reports  Menu. 
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SARELTIS  SAR  REPORTS  MENU 

(1)  ANALYSIS  OF  IMMEDIATE  DISTRESS  SAR  CASES 

(2)  SMALL  SCALE  AND  COASTLINE  AREA  SAR  CASE  LOCATION 
ANALYSIS 

(3)  LARGE  SCALE  AREA  SAR  CASE  LOCATION  ANALYSIS 

(4)  SMALL  BOAT  OPERATIONS  AREA  SAR  CASE  LOCATION 
ANALYSIS 

(5)  SAR  TABLE  SUMMARY  LISTING 

(6)  SAR  UNIT  TIME  EXPENDED  DURING  SAR  CASES 

(7)  DAY  OF  THE  WEEK,  MONTH,  AND  YEAR  ANALYSIS 

(8)  SAR  CASE  ANALYSIS:  DAYTIME/NIGHTTIME  FREQUENCY 

(9)  RETURN  TO  REPORTS  MENU 


Figure  4.10  SARELTIS  SAR  Reports  Menu. 

called  "BACKDBMS.BAT".  Since  this  backup  will  take  a  minimum  of  six  floppy  disks, 
the  user  should  ensure  that  at  least  six  floppy  disks  have  been  formatted  prior  to 
executing  this  program.  To  format  a  floppy  disk,  type  the  command  "PATH  UTIL" 
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SARELTIS  VESSEL  REPORTS  MENU 


VESSEL  SUMMARY  LISTING 

VESSEL  —  OWNERS  OF  SPECIFIED  VESSELS 


VESSEL  --  OPERATORS  OF  SPECIFIED  VESSELS 


RETURN  TO  REPORTS  MENU 


Figure  4.11  SARELTIS  Vessel  Reports  Menu, 


SARELTIS  PERSONNEL  REPORTS  MENU 


OWNERS  OF  VESSELS  SUMMARY  LISTING 


OWNER  —  VESSELS  WHICH  ARE  OWNED  BY  SPECIFIED 
OWNERS 


OPERATORS  OF  VESSELS  SUMMARY  LISTING 


OPERATORS  —  VESSELS  WHICH  ARE  OPERATED  BY 
SPECIFIED  OPERATORS 


RETURN  TO  REPORTS  MENU 


Figure  4,12  SARELTIS  Personnel  Reports  Menu. 


at  the  system  prompt  "C:  > ",  then  type'TORMAT  A:"  at  the  next  system  prompt 
"C:  > ",  The  system  will  prompt  the  user  to  insert  the  disks  to  be  formatted  into  floppy 
drive  A:  and  will  indicate  when  the  process  has  been  completed.  After  ensuring  that 
the  user  has  prepared  enough  formatted  floppy  disks,  the  user  is  ready  to  execute  the 
batch  file.  The  user  should  type  "BACKDBMS"  at  the  system  prompt  "C:>"  and 
press  the  <ENTER>  key  to  execute  the  program.  Follow  the  system  prompts  to 
remove  and  insert  floppy  disks.  When  the  database  has  been  backed  up  the  program 
will  automatically  return  the  user  to  SARELTIS.  In  the  unlikely  event  that  the 
database  has  "crashed"  (e.g.  nothing  seems  to  work  as  advertised),  the  user  may 
recover  the  database  from  the  last  back-up.  Similar  to  the  back  up  process,  option  (4) 
details  the  specific  procedures  in  order  to  recover  the  database.  Basically,  the  user 
must  exit  SARELTIS  and  at  the  system  prompt  type  "RESTDBMS"  and  press  the 


rMrT\ji7Miniinv  nir  wnup'.  w-l 


<ENTER>  key.  This  executes  the  DOS  BATCH  File  "RESTDBMS.BAT".  The  user 
should  follow  any  instructions  that  the  computer  displays  on  the  screen.  When  the 
database  has  been  fully  recovered,  the  program  will  automatically  return  the  user  to  the 
SARELTIS  system. 


SARELTIS  UTILITIES  MENU 


INITIALIZE  DATABASE 
PACK  DATABASE 
BACKUP  DATABASE 
RESTORE  DATABASE 
RETURN  TO  MAIN  MENU 


Figure  4.13  SARELTIS  Utilities  Menu. 


E.  EXITING  SARELTIS 

To  exit  SARELTIS  and  return  to  the  computer's  operating  system,  select  option 
(7)  from  the  SARELTIS  Main  Menu.  This  will  automatically  close  all  open  files  and 
remove  any  temporary  relations/tables  and  variables  that  have  been  created  during  the 
operation  of  the  system.  The  user  should  not  exit  the  system  by  merely  turning  the 
computer  off.  Data  could  be  lost  or  incorrectly  entered  upon  losing  system  power. 
Once  SARELTIS  has  completed  closing  all  files  and  removing  temporary  tables  and 
variables,  it  will  return  the  user  to  the  system  prompt:  "C:  > Once  the  system 
prompt  is  displayed  and  the  computer  is  no  longer  needed,  the  power  may  safely  be 
turned  off  without  danger  to  the  SARELTIS  database. 

F.  SARELTIS  MAINTENANCE 

Maintenance  to  the  SARELTIS  application  programs  should  not  be  undertaken 
by  the  casual  user.  Before  performing  any  alterations  to  the  source  code,  the  user 
should  invest  considerable  time  and  effort  in  understanding  the  proper  techniques  of 
software  programming  and  documentation. 

Due  to  the  high  degree  of  interdependencies  between  the  program  modules,  the 
user  must  be  aware  that  a  seemingly  minor  alteration  could  have  far-reaching  unseen 


efTects.  The  system  may  appear  to  operate  correctly,  but  in  reality,  the  data  being 
stored,  modified,  or  printed  could  be  inaccurate  or  even  lost. 

Users  desiring  to  modify  the  source  code  should  have  a  thorough  knowledge  of 
relational  database  structures,  structured  programming  techniques,  and  the  R:base 
5000  command  language.  Prior  to  making  any  changes  the  user  should  ensure  that  the 
database  is  backed  up  and  that  copies  of  the  applications  programs  have  been  made  in 
the  event  that  the  modifications  do  not  function  properly.  Above  all,  the  user  should 
NEVER  attempt  to  make  modifications  to  the  source  code  without  outside  expert 
consultation  and  assistance. 

Due  to  the  size  and  complexity  of  SARELTIS,  the  authors  recognize  that  errors 
will  be  discovered.  This  will  require  that  the  source  code  or  database  structure  will 
need  to  be  modified.  A  knowledgeable  user  can  use  the  source  code  listings  found  in 
Appendices  E  through  P  to  assist  in  the  understanding  and  modification  of  the 
program  modules. 


V.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  SARELTIS  RESULTS 

SARELTIS  was  originally  conceived  to  merely  replace  Group  Monterey's 
corporate  knowledge  base  and  provide  access  to  historical  information  to  assist 
boarding  officers  and  Search  and  Rescue  Coordinators.  What  has  evolved  is  a  system 
with  far  more  capabilities  than  originally  designed.  The  concept  of  providing  only 
summarized  frequency  data  was  transformed  to  providing  the  capability  to  perform 
limited  decision  support  functions.  The  system  still  produces  the  required  standard 
statistical  reports  but  also  provides  vessel  profiles  of  potential  violators.  These  profiles 
examine  individual  violation  codes  and  search  the  historical  boarding  information  to 
determine  by  violation  the  vessel  type,  use,  hull  material,  propulsion,  engine 
compartment  type,  fuel  compartment,  length,  and  year  of  construction  of  vessels 
found  in  violation  of  the  specific  code. 

The  system  also  provides  SAR  and  ELT  planning  by  examining  "high  incident 
times"  and  "high  incident  areas".  By  reviewing  SAR  historical  information,  SAT 
Coordinators  can  better  plan  for  crew  augmentation  or  additional  floating  or  land 
resources.  Additionally,  by  examining  where  SAR  cases  and  ELT  missions  have 
occurred.  Group  Monterey  can  better  plan  where  to  strategically  locate  or  send  their 
floating  units. 

As  discussed  in  Chapter  II,  the  Coast  Guard  has  been  brought  under  scrutiny 
for  potential  harassment  of  the  boating  public  by  repetitively  boarding  the  same  vessel 
during  a  very  small  time  interval.  SARELTIS  will  provide  the  means  to  ascertain 
whether  a  particular  vessel  has  been  boarded  in  the  operational  area,  when  the  vessel 
was  lasted  boarded,  and  what  violations,  if  any,  were  discovered. 

One  of  the  most  important  aspects  of  SARELTIS  is  the  capability  of  providing 
real-time  information  and  intelligence  to  boarding  officers  and  SAR  Coordinators. 
With  timely  information,  boarding  officers  can  better  understand  and  recognize 
potential  dangerous  situations  prior  to  going  on  board  a  vessel. 

B.  CONCLUSIONS 

This  thesis  was  the  first  step  toward  providing  better  and  more  timely 
information  to  Coast  Guard  operational  units.  Although  SARELTIS  has  not  been  put 


APPENDIX  A 
LOGICAL  MODELS 


A  Data  Flow  Diagram  (DFD)  is  a  method  to  graphically  represent  the  logical 
functions  of  a  system.  Through  the  use  of  this  very  simple  modeling  technique,  the 
analyst  and  user  can  examine  the  functions  and  interfaces  of  the  existing  system  and 
easily  defme  the  components  required  within  the  proposed  new  system.  These 
diagrams  serve  to  summarize  the  processes  and  the  flow  of  data  within  the  logical 
model  of  the  current  methodology  and  to  depict  the  functions  of  the  proposed  system 
independent  of  physical  implementation  details. 

Within  the  diagrams,  processes  or  activities  are  depicted  as  uniquely  identified 
circles,  and  the  flow  of  data  is  represented  by  arrows.  Rectangles  indicate  a  source  or 
destination  for  some  type  of  information  or  product.  The  number  included  within  a 
process  circle  uniquely  identifies  that  process  and  serves  as  a  means  for  indicating  the 
subprocesses  of  a  higher  level  process.  Higher  level  processes  have  single  digit 
numbers,  while  a  subprocess  number  consists  of  the  parent  number(s)  and  the 
subprocess  number.  This  numbering  convention  allows  the  subfunctions  of  a  higher 
level  function  to  be  easily  identified.  [Ref.  2:  p.  282]. 

A  second  tool  that  is  very  useful  for  the  logical  modeling  of  a  database  system  is 
thej^achman  diagram.  This  diagram  depicts  the  entities  that  are  present  within  the 
system,  represented  as  boxes,  and  their  interrelationships,  which  are  depicted  by  arrows 
between  the  entities.  Representing  the  logical  structure  of  the  proposed  database,  this 
diagram  sets  a  foundation  for  the  development  of  the  physical  database  structure 
[Ref.  3:  p.  39].  ' 

Within  this  appendix,  the  existing  search  and  rescue  and  law  enforcement  system 
processes  are  depicted  by  Figures  A.l  through  A.4,  the  proposed  new  systems  as 
Figures  A. 5  through  A.  10,  and  the  combined  database  logical  structure  as  Figure  A.l  1. 


into  production  at  Group  Monterey,  it  wll  be  implemented  there  in  September  1987. 
It  is  anticipated  that  its  use  will  stimulate  further  interest  in  the  SARELTIS  concept 
and  create  other  needs  not  previously  identiiied  nor  programmed  in  the  first  version, 

C.  SUGGESTIONS  FOR  FURTHER  RESEARCH 

This  thesis  successfully  analyzed,  designed,  and  implemented  an  automated 
intelligence  system  to  assist  small  Coast  Guard  units  similar  to  Group  Monterey.  The 
robustness  of  the  system  has  been  demonstrated  in  its  preparation  of  over  45  standard 
reports  for  use  by  the  small  unit  to  assist  in  recordkeeping,  intelligence  reporting,  and 
resource  planning.  Although  not  originally  conceived,  a  limited  decision  support 
capability  was  built  into  the  system.  This  seems  to  be  one  of  the  potential  areas  for 
further  research.  The  reports  designed  in  SARELTIS  are  by  no  means  complete.  It  is 
envisioned  that  with  the  proper  tools  the  SARELTIS  database  could  be  used  as  the 
basis  for  a  comprehensive  decision  support  system. 

.Another  area  of  potential  research  that  was  beyond  the  scope  of  this  thesis  was 
the  interfacing  to  a  central  database.  By  telecommunicating  the  data  collected  by  the 
system  to  a  Coast  Guard  district  office  or  area  office,  the  SARELTIS  concept  can  be 
transported  to  a  larger  geographic  area.  Terminals  could  be  connected  via  MODEM 
to  this  online  database  to  provide  the  most  up-to-date  information  possible. 

Data  entry  into  the  system  could  also  be  improved.  If  SARELTIS  could 
automatically  receive  intelligence  information  from  local  or  federal  law  enforcement 
agencies,  this  would  eliminate  the  necessity  to  manually  enter  the  information  via  the 
computer  keyboard.  Additionally,  if  an  optical  mark  boarding  form  was  used  by 
boarding  officers,  manual  data  entry  could  also  be  reduced  with  the  aid  of  an  optical 
mark  reader. 
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Figure  A. 2  Existing  SAR  System  -  Level  1. 
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Figure  A.5  Proposed  SAR  System  -  Level  0. 
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Figure  A.  1 1  Bachman  Diagram  of  Proposed  System. 


APPENDIX  B 
SYSTEM  REPORTS 


To  assist  Coast  Guard  Group  Monterey  with  operations,  planning  and  report 
generation,  the  SARELTIS  prototype  provides  numerous  hard  copy  reports. 
Procedures  utilized  to  generate  these  reports  are  discussed  in  Chapter  IV,  the  System 
User's  Guide.  Examples  of  all  reports  produced  by  the  prototype  are  displayed  in  this 
appendix  as  Figures  B.l  through  B.45.  Table  3  provides  a  reference  for  the 
correspondence  between  the  figures  included  in  this  appendix  and  the  report  names 
called  within  the  program  listing. 


US  Coast  Guard  Group  Monterey 
Vessel  Boarding  Sununary  Listing 
For  the  Period:  01/01/1980  -  01/01/1988 


Date:  08/15/1987 
Page :  1 

Vessel 

HIN 


111111111111  01/15/1980  mon  5:00:00a  bm3  smith 

mry-001  37.00  N  121.52  W  CG  Group  Monterey  11  36268 

Monterey  Bay  Monterey  Monterey  CA 

WPNS-  3  POB-  8  ADLT-  6  CHLD-  2  OWST-1  S/R:  6:00:00a  S/S:  7:00:00p 
V54  V55  V56  V57  V58  V59  V60  V61  V62  V63  V64  V65  V66  V67  V68 

X'*X*  *X*X 

U69  U70  U71  U72  U73  U74  U75  U76  U77  U78  U79 
---x-x-x-x- 
owner/operator  was  abusive  towards  boarding  officer 


222222222222  02/25/1981  fri  7:30:00p  bm2  adams 

mry-002  36.29  N  122.46  W  CG  Group  Monterey  11  36268 

Monterey  Bay  Monterey  Monterey  CA 

WPNS-  1  POB-  12  ADLT-  12  CHLD-  0  OWST-1  S/R:  6:00:00a  S/S:  7:00:00p 
V54  V55  V56  V57  758  V59  V60  761  762  763  764  765  766  767  768 
xxxxx*******  ***x 

U69  U70  U71  U72  U73  U74  U75  U76  U77  U78  U79 


333333333333  03/18/1983  mon  12:00:00p  bm2  adams 
mry-003  36.28  N  123.06  W  CG  Group  Monterey  11  36268 

Monterey  Bay  Monterey  Monterey  CA 

WPNS-  1  POB-  12  ADLT-  12  CHLD-  0  OWST-1  S/R:  6:00:00a  S/S:  7:00:00p 
754  755  756  757  758  759  V60  761  762  763  764  765  766  767  768 

U69  U70  U71  U72  U73  U74  U75  U76  U77  U78  079^'’^  ^ 

X--XX--X--- 

belligerent  operator 


Figure  B.l  Boarding  Listing. 


US  Coast  Guard  Group  Monterey 
Boarding  Location  Frequency 
For  Major  Grid  Areas 
During  Period  01/OV1980  -  01/01/1988 


Total  Boardings  -  8 


Date  -  08/15/1987 

Grid  Area  North 

Designation  Boundary 

South 

Boundary 

East 

Boundary 

West  Total 

Boundary  Occurrences 

Page  -  1 

Percentage 

Total 

Boardings 

A 

37.30 

37.00 

122.30 

123.00 

0 

0.00  % 

B 

37.30 

37.00 

122.00 

122.30 

0 

0.00  % 

C 

37.00 

36.30 

123.00 

123.30 

0 

0.00  % 

D 

37.00 

36.30 

122.30 

123.00 

0 

0.00  % 

E 

37.00 

36.30 

122.00 

122.30 

0 

0.00  % 

F 

37.00 

36.30 

121.30 

122.00 

1 

12.50  % 

G 

36.30 

36.00 

123.00 

123.30 

1 

12.50  % 

H 

36.30 

36.00 

122.30 

123.00 

2 

25.00  % 

I 

36.30 

36.00 

122.00 

122.30 

1 

12.50  % 

J 

36.30 

36.00 

121.30 

122.00 

0 

0.00  % 

•  K 

36.00 

35.30 

122.30 

123.00 

.0 

0.00  % 

L 

36.00 

35.30 

122.00 

122.30 

0 

0.00  % 

M 

36.00 

35.30 

121.30 

122.00 

0 

0.00  % 

N 

36.00 

35.30 

121.00 

121.30 

0 

0.00  % 

0 

35.30 

35.00 

122.30 

123.00 

0 

0.00  % 

P 

35.30 

35.00 

122.00 

122.30 

1 

12.50  % 

Q 

35.30 

35.00 

121.30 

122.00 

0 

0.00  % 

R 

35.30 

35.00 

121.00 

121.30 

1 

12.50  % 

S 

35.30 

35.00 

120.30 

121.00 

0 

0.00  % 

Figure  B.2  Major  Grid  Area  Boarding  Frequency. 
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Date  -  08/15/1987 


Page  -  2 


Grid  Area  North 

Designation  Boundary 

South 

Boundary 

East 

Boundary 

West  Total 

Boundary  Occurrences 

Percentage 

Total 

Boardings 

T 

35.00 

34.30 

122.00 

122.30 

0 

0.00  % 

U 

35.00 

34.30 

121.30 

122.00 

0 

0.00  % 

V 

35.00 

34.30 

121.00 

121.30 

0 

0.00  % 

W 

35.00 

34.30 

120.30 

121.00 

0 

0.00  % 

X 

34.30 

34.00 

121.30 

122.00 

0 

0.00  % 

Y 

34.30 

34.00 

121.00 

121.30 

0 

0.00  % 

Total  Boardings  In  Major  Grid  Areas . 

Total  Boardings  Outside  Grid  Area . 

Total  Boardings . 

7 

1 

8 

87.50  % 

12.50  % 

Figure  B.2  Major  Grid  Area  Boarding  Frequency,  (cont'd.) 


65 


KB  W  U  WHt  W-jTV  TTW  W IW 


1lW!lW»>ni.^WWVF%'  ^  •  Hlf  ir^n:^  IJ  «  ¥  H  TH.^  '4,^X^  Ik  iun  njn  «  XT'  •>- 


US  Coast  Guard  Group  Monterey 
Boarding  Location  Frequency 
For  Minor  Grid  Areas  (Coastline) 
During  Period  01/01/1981  -  01/01/1988 


Total  Boardings  -  7 


Date  -  08/15/1987  Page  -  1 

Percentage 

Grid  Area  North  South  East  West  Total  Total 

Designation  Boundary  Boundary  Boundary  Boundary  Occurrences  Boardings 


01 

37.10 

37.05 

122.20 

122.25 

0 

0.00  % 

02 

37.10 

37.05 

122.15 

122.20 

0 

0.00  % 

03 

37.05 

37.00 

122.20 

122.25 

0 

0.00  % 

04 

37.05 

37.00 

122.15 

122.20 

0 

0.00  % 

05 

37.05 

37.00 

122.10 

122.15 

0 

0.00  % 

06 

37.00 

36.55 

122.15 

122. ..0 

0 

0.00  % 

07 

37.00 

36.55 

122.10 

122.15 

0 

0.00  % 

08 

37.00 

36.55 

122.05 

122.10 

0 

0.00  % 

09 

37.00 

36.55 

122.00 

122.05 

0 

0.00  % 

10 

37.00 

36.55 

121.55 

122.00 

0 

0.00  % 

11 

37.00 

36.55 

121.50 

121.55 

0 

0.00  % 

12 

36.55 

36.50 

122.00 

122.05 

0 

0.00  % 

13 

36.55 

36.50 

121.55 

122.00 

0 

0.00  % 

14 

36.55 

36.50 

121.50 

121.55 

0 

0.00  % 

15 

36.55 

36.50 

121.45 

121.50 

0 

0.00  % 

16 

36.50 

36.45 

122.00 

122.05 

0 

0.00  % 

17 

36.50 

36.45 

121.55 

122.00 

0 

0.00  % 

18 

36.50 

36.45 

121.50 

121.55 

0 

0.00  % 

19 

36.50 

36.45 

121.45 

121.50 

0 

0.00  % 

Figure  B.3  Minor  Grid  Area  Boarding  Frequency. 
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Date  -  08/15/1987  Page  -  2 

Percentage 

Grid  Area  North  South  East  West  Total  Total 

Designation  Boundary  Boundary  Boundary  Boundary  Occurrences  Boardings 


20 

36.45 

36.40 

122.00 

122.05 

0 

0.00 

21 

36.45 

36.40 

121.55 

122.00 

0 

0.00 

22 

36.45 

36.40 

121.50 

121.55 

0 

0.00 

23 

36.45 

36.40 

121.45 

121.50 

0 

0.00 

24 

36.40 

36.35 

122.00 

122.05 

0 

0.00 

25 

36.40 

36.35 

121.55 

122.00 

0 

0.00 

26 

36.40 

36.35 

121.50 

121.55 

1 

14.29 

27 

36.40 

36.35 

121.45 

121.50 

0 

0.00 

28 

36.35 

36.30 

121.55 

122.05 

0 

0.00 

29 

36.30 

36.25 

121.53 

122.05 

0 

.0.00 

30 

36.25 

36.20 

121.52 

122.05 

0 

0,00 

31 

36.20 

36.15 

121.50 

122.05 

0 

0,00 

32 

36.15 

36.00 

121.30 

122.00 

0 

0.00 

33 

36.00 

35.40 

121.15 

121.45 

0 

0.00 

34 

35.40 

35.20 

120.45 

121.30 

1  ' 

14.29 

35 

35.20 

35.00 

120.35 

121.10 

0 

0.00 

36 

35.00 

34.40 

120.35 

121.00 

0 

0.00 

37 

34.40 

34.27 

120.28 

121.00 

0 

0.00 

Total  Boardings  in  Minor  Grid/Coastline  Areas .  2  28.57  % 

Total  Boardings  Outside  Minor  Grid  Areas .  5  71.43  % 

Total  Boardings .  7 


Figure  B.3  Minor  Grid  Area  Boarding  Frequency,  (corn'd.) 
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US  Coast  Guard  Group  Monterey  Boarding  History 


Date-08/15/1987 
Page-  1 

DATE  TIME  BONO  VESSEL  HIN  BOLAT  BOLONG  POB 

01/15/1980  5:00:00a  mry-001  111111111111  37.00N  121. 52W  8 

V54  V55  V56  V57  V58  V59  V60  V61  V62  V63  V64  V65  V66  V67  V68 

X  XXX  X  XXX 

U69  U70  U71  U72  U73  U74  U75  U76  U77  U78  NOVIOLS  WEAPONS  ALCOHOL 
X  X  X  X  3  X 

owner/operator  was  abusive  towards  boarding  officer 


BOARDING  OFFICER  -  smith  bm3 


DATE  TIME  BONO  VESSEL  HIN  BOLAT  BOLONG  POB 

04/17/1985  2;30:00p  mrY-008  111111111111  36.38N  121. 52W  0 

V54  V55  V56  V57  V58  V59  V60  V61  V62  V63  V64  V65  V66  V67  V68 

XXX 

U69  U70  U71  U72  U73  U74  U75  U76  U77  U78  NOVIOLS  WEAPONS  ALCOHOL 
X  X  2  X 

owner/operator  was  uncooperative  and  abusive  towards  boarding  officer 


BOARDING  OFFICER  -  adams  bm2 


Figure  B.4  Vessel  Boarding  History. 


US  Coast  Guard  Group  Monterey 
Courtesy  Motorboat  Examinations  (CME's) 
During  the  Period:  01/01/1980  -  01/01/1988 


{\ 

» 

t 

e 


Date:  08/15/1987  Page:  1 

Percentage  Percentage 

Total  Total 

CHE  Issue  Year  Occurrences  CME's  Boardings 

prior  to  1970  .  0  0.00  %  0.00  % 

1971  -  1975  .  0  0.00  %  0.00  % 

1976  -  1979  .  0  0.00  %  0.00  % 

1980  -  1981  .  0  0.00  %  0.00  % 

1982  -  1983  .  2  50.00  %  15.38  % 

1984  -  1985  .  2  50.00  %  15.38  % 

1986  -  1987  .  0  0.00  %  0.00  % 

1988  -  1989  .  0  0.00  %  0.00  % 

after  1990  .  0  0.00  %  0.00  % 


Total  CME's  .  4  30.76  % 

Total  Boardings  .  8 


Figure  B.5  Courtesy  Motorboat  Examination  Summary. 
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US  Coast  Guard  Group  Monterey 
Nighttime  /  Daytime  Operations 
For  the  Periodi  01/01/1980  -  01/01/1988 


Date*  08/15/1987 


Page ;  1 


SAR  Cases: 


Occurrences 


Percentage 
Total 
SAR  Cases 


Daytime 


5 


41.67 


% 


Nighttime  .  7 

Total  SAR  Cases  .  12 


58.33  % 


Boardings : 

Daytime  .  4 

Nighttime  .  4 

Total  Boardings  .  8 


50.00  % 
50.00  % 


Figure  B.6  SAR  and  Boarding  Day/Night  Summary. 
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US  Coast  Guard  Group  Monterey 
EPIC  Code  Statistical  Analysis 
For  Information  Collected 
During  the  Period:  01/01/1980  -  01/01/1988 


Date:  08/15/1987 


Page ;  1 


EPIC  Percentage 

Lookout  EPIC  Code  Total 

Category  Description  Occurrences  EPIC  Category 


1  In  the  course  of  normal  operations  3  42.86  % 

be  on  lookout  for  vessel 
described,  determine  course  and 
speed;  and  notify  requesting 
agency.  Do  not  maintain 
surveillance.  Take  no  action  that 
would  make  subject  vessel  aware  of 
interest. 


2  In  the  course  of  normal  operations  0  0.00  % 

be  on  lookout  for  vessel 
described,  determine  course  and 
speed;  motify  requesting  agency. 

Maintain  remote  surveillance 
pending  instructions.  Take  no 
action  that  would  make  subject 
vessel  aware  of  surveillance. 


3  In  the  course  of  normal  operations  3  42.86  % 

be  on  lookout  for  vessel 
described.  If  sighted  notify 
requesting  agency,  board  vessel, 
and,  if  evidence  supports,  seize 
vessel  and  arrest  persons 
on  board. 


4  Conduct  harbor  check  for  vessel.  1  14.29  % 

If  found,  maintain 
remote  surveillance,  notify 
requesting  agency  and  await 
further  instructions. 


Figure  B.7 


EPIC  Code  Statistical  Analysis. 
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Date*  08/15/1987  Page:  2 

Percentage 

EPIC  EPIC  Code  Total 

Category  Description  Occurrences  EPIC  Category 


5  Conduct  harbor  check,  board  vessel  0  0.00  % 

i£  located  and  if 
evidence  supports,  seize  vessel, 
arrest  persons  on  board 
and  report  to  requesting  agency. 


6  Conduct  search  for  vessel  in  most  0  0.00  % 

appropriate  area  based  on 
information  in  paragraph  4  of 
lookout  message.  If  located, 
notify  requesting  agency, board 
vessel,  and  if  evidence 
supports,  seize  vessel  and  arrest 
persons  on  board. 


Total  EPIC  Occurrences 


7 


Figure  B.7  EPIC  Code  Statistical  Analysis,  (cont'd.) 


US  Coast  Guard  Group  Monterey 
Vessel  Intelligence 

For  the  Period:  01/01/1980  -  01/01/1988 

***  EPIC  Code  Summary  *** 


Date:  08/15/1987 

Vessel 

Name 

miss  alfa 
miss  alfa 
miss  cocaine 
Constance 
miss  barbs 
miss  cocaine 
miss  cannibis 


Intelligence 

Date 

03/01/1983 

05/05/1985 

05/20/1986 

01/09/1986 

02/05/1986 

06/01/1985 

05/18/1985 


Page:  1 

EPIC 

CODE 

1 

1 

1 

3 

3 

3 

4 


Figure  B.8  Summary  of  EPIC  Codes  Assigned. 
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US  Coast  Guard  Group  Monterey 
Immediate  Distress  Statistics 
During  Period:  01/01/1980  -  01/01/1988 


Date:  08/15/1987 

Page ;  1 

Percentage 

Total 

Occurrences 

SAR  Cases 

Non- immediate  SAR  Cases  . 

•  • « •  4 

33.33  % 

Immediate  Distress  SAR  Cases  . 

•  •  •  •  8 

66.67  % 

Total  SAR  Cases 


12 


Figure  B.9  Immediate  Distress  Statistics. 
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US  Coast  Guard  Group  Monterey 
Vessel  Intelligence 

For  the  Period:  01/01/1980  -  01/01/1988 

***  Intelligence  Remarks  *** 


Date:  08/15/1987 


Vessel  Name 
Constance 


Date  of 
Intelligence 

01/09/1986 


Page:  1 


Remarks 


seen  in  panama  carrying  a  large  load 
of  marijuana  on  the  stern 


r*. 

J 

5 


miss  alfa 


03/01/1983  suspected  of  smuggling  illegal 
firearms 


miss  alfa 


05/05/1985  vessel  seen  in  Cartegena,  Columbia 
taking  on  a  load  of  marijuana 


miss  barbs 


02/05/1986  vessel  stolen  in  01/86  in  san 
francisco,  ca 

suspected  of  being  used  in  major 
drug  operations 


miss  cannibis 


05/18/1985  vessel  stolen  in  san  diego,  ca  on 
04/14/1985 


miss  cocaine 


06/01/1985  vessel  suspected  of  hauling  illegal 
contraband  and  child  pornography 
armed  and  dangerous 


Figure  B.IO  Vessel  Intelligence  Remarks  Summary. 
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US  Coast  Guard  Group  Monterey 
Operator  Table  Dump 
For  DOB'S:  01/01/1920  -  01/01/1945 

Last  Names  Beginning  -  a  Ending  -  z 


Date:  08/15/1987  Page:  1 


Figure  B.ll  Operator  Listing. 
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US  Coast  Guard  Group  Monterey 
Operators  of  Vessels  Summary 


Date:  08/15/1987 
Page :  1 


Vessel 

Operator 


Operator 
Address  /  Telno 


Vessel 
Name  /  HIN 


alien 


miss  foxtrot 
666666666666 


miss  alfa 
111111111111 


benson 

richard 


unk 

222222222222 


Cranston 

raloh 


miss  Charlie 
333333333333 


flinstone 
fre  " 


miss  alfa 
111111111111 


1  flintstone 

3  fred 

!  — . . 

’  public 

f. 

_q- 

1  simmons 

miss  kilo 
999999999999 


miss  cocaine 
777777777777 


miss  Charlie 
333333333333 


miss  echo 
555555555555 


Simpson 
re 


miss  delta 
444444444444 


Figure  B.12  Operators  of  Vessels  Summary. 
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US  Coast  Guard  Group  Monterey 
Operator  Query  Summary  Report 


Date:  01/01  1980 


Last  Name:  flinstone 
First  Name :  fred 
Initial:  f 


Figure  B.13  Operator  Query  Report. 


US  Coast  Guard  Group  Monterey 
Owners  Table  Dump 

For  DOB'S:  01/01/1940  -  01/01/1960 

Last  Names  Beginning  -  a  Ending  -  z 


Date:  08/15/1987 


Page:  1 


Figures.  14  Owners  Listing. 
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Vessel 

Owner 


alien 


benson 

richard 


Cranston 

ralph 


edwards 

georqe 


flints tone 
fred 


Harris 

sam 


Harris 

sam 


public 

iohn 


rivera 
ed 


Simmons 

richard 


US  Coast  Guard  Group  Monterey 
Owners  of  Vessels  Summary 


Owner 

Address  /  Telno 


Date:  08/15/1987 
Page :  1 

Vessel 
Name  /  HIN 

miss  alfa 
111111111111 


unk 

222222222222 


miss  Charlie 
333333333333 


miss  delta 

444444444444 


miss  kilo 
999999999999 


miss  foxtrot 
666666666666 


miss  alfa 
111111111111 


miss  cocaine 
777777777777 


unk 

222222222222 


miss  echo 
555555555555 


Figure  B.  15  Owners  of  Vessels  Summary. 
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US  Coast  Guard  Group  Monterey 
Owner  Query  Summary  Report 


Date:  08/15/1987 

Last  Name:  Harris 
First  Name:  sam 
Initial:  k 


Figure  B.16  Owner  Query  Report. 


US  Coast  Guard  Group  Monterey 
Personnel  Intelligence  Sununary  Liscing 
For  the  Period:  01/01/1980  -  01/0:./1988 

xsssssssssssa=s=sss=ss=^==ssss==sss=====: 


Date:  08/15/1987 
Page :  1 


Date  of 

Last  Name  First  Name  MI  DOB  Intelligence 


alien  ,  david  g.  08/08/1984 

suspected  of  illegal  narcotics  smuggling 
considered  armed  and  dangerous 


alien  david  g.  03/04/1983 

suspected  of  being  involved  in  arms  smuggling  ring 
considered  armed  and  dangerous 


Harris 


sam 


suspected  of  possession  of  stolen  vessels 


02/03/1983 


public  iohn  g.  07/15/1986 

suspected  of  illegal  drug  trafficking 


rivera  edward  a.  04/06/1986 

suspected  of  being  involved  in  illegal  arms  smuggling 


rivera  fernando  w.  04/08/1985 

suspected  of  illegal  narcotics  smuggling 


rivera  ,  pablo  f.  04/06/1986 

armed  and  dangerous 
fugitive  from  prosecution 
contact  FBI  upon  detention 


Figure  B.17  Personnel  Intelligence  Listing. 
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US  Coast  Guard  Group  Monterey 
Personnel  Query  Sunmary  Report 


Date: 


Last  Name:  public 
First  Name:  ]ohn 
Middle  Initial:  q 


Figure  B.  18  Personnel  Query  Report. 


US  Coast  Guard  Group  Monterey 
Personnel  Intelligence  Information 


Date 

Page 

DATE  OF  INTEL  LAST  NAME  FIRST  NAME  MI 

07/15/1986  public  iohn  q 

suspected  of  illegal  drug  trafficking 


Figure  B.19  Personnel  Intelligence  Report. 


08/15/1987 


08/15/1987 

1 
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US  Coast  Guard  Group  Monterey 
Vessel  SAR  Case  Sununary  Listing 
For  the  Period:  01/01/1980  -  01/01/1988 


Date:  08/15/1987 
Page :  1 


Vessel 

HIM 


111111111111  01/15/1980  mon  5:00:00a  37.00  N  121.52  W 

FLDR-mry-001  IMMED-y  NOD-taking  on  water  S/R-  6:00:00a 

UCN-00000001  OFFSHORE-  2  POB-  8  S/S-  7:00:00p 

HUCN-  SEAS-  3  SWLS-  2  WIND  DIR-180  SPD-  15  VISDIST-10 

222222222222  02/25/1981  fri  7:30:00p  36.29  N  122.46  W 

FLDR-mry-002  IMMED-n  NOD-mast  broke  S/R-  6:00:00a 

UCN-00000002  OFFSHORE-  3  POB-  12  S/S-  7:00:00p 

MUCH-  SEAS-  7  SWLS-  5  WIND  DIR-120  SPD-  12  VISDIST-  5 

333333333333  03/18/1983  mon  12:00:00p  36.28  N  123.06  W 

FLDR-mry-003  IMMED-n  NOD-engine  stopped  S/R-  6:00:00a 

UCN-00000003  OFFSHORE-  4  POB-  12  S/S-  7:00;00d 

MUCN-  SEAS-  6  SWLS-  8  WIND  DIR-270  SPD-  15  VISDlST-10 

444444444444  04/21/1984  fri  10:00:00p  35.20  N  122.15  W 

FLDR-mrv-004  IMMED-n  NOD-broken  mast  S/R-  6:00:00a 

UCN-00C)00004  OFFSHORE-  6  POB-  8  S/S-  7:00:00p 

MUCN-  SEAS-  12  SWLS-  15  WIND  DIR-220  SPD-  25  VISDIST-  3 

555555555555  05/22/1985  sat  ll:12:00p  36.28  N  122.35  W 

FLDR-mry-005  IMMED-y  NOD-taking  on  water  S/R-  6:00:00a 

UCN-00000005  OFFSHORE-  1  POB-  4  S/S-  7:00:00p 

MUCN-  SEAS-  6  SWLS-  10  WIND  DIR-260  SPD-  15  VISDIST-  1 

333333333333  06A5/1985  sat  ll:00:00p  36.37  N  121.56  W 

FLDR-mry-010  IMMED-y  NOD-man  overboard  in  surf  S/R-  5:00:00a 
UCN-00000010  •  OFFSHORE-  1  POB-  5  S/S-7:30:00p 

MUCN-  SEAS-  2  SWLS-  4  WIND  DIR-300  SPD-  5  VISDIST-10 

666666666666  04/16/1986  fri  2:00:00a  36.36  N  121.59  W 

FLDR-mry-012  IMMED-y  NOD-vessel  on  fire  S/R-  6:00:00a 

UCN-00000012  OFFSHORE-  1  POB-  5  S/S-  7:00:00p 

MUCN-  SEAS-  2  SWLS-  3  WIND  DIR-280  SPD-  3  VISDIST*  15 

666666666666  06/13/1986  sat  1:00 :00p  36.28  N  122.15  W 

FLOR-mry-006  IMMED-y  NOD-fire  on  board  S/R-  6:00 :00a 

IjCN-00000006  OFFSHORE-  6  POB-  4  S/S-  7:00:00p 

MUCN-  SEAS-  3  SWLS-  5  WIND  DIR-330  SPD-  15  VISDIST-10 


Figure  B.20  SAR  Listing. 
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01/01/1980  -  12/30/1986 


Date:  08/15/1987 
Page :  1 


Month 


Total  Number 
SAR  Cases 


Percentage 
Total 
SAR  Cases 


January  . 
February 
March  . 
April  . 
May  . . 
June  . . 
July  . . 
August  . 
September 
October 
November 
December 


9.09  % 
9.09  % 
9.09  % 


18.18  % 


9.09  % 
27.27  % 

a  no  P, 


9.09  % 
9.09  % 
0.00  % 
0.00  % 
0.00  % 
0.00  % 


Year 

Total  Number 

SAR  Cases 

• 

1980  . 

1 

1981  . . 

...  1 

1 

1982  . 

...  0 

1 

1983  . 

...  1 

n  * 

1984  . 

...  2 

1 

1985  . 

...  2 

1986  . 

4 

Total  SAR  Cases 


Figure  B.21  SAR  Months  and  Years  Frequency  Statistics. 
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US  Coast  Guard  Group  Monterey 
SAR  Case  Day  of  the  Week  Frequency 

ssssssssssssssssssssssssssssssssss 


Date:  08/15/1987 
Page :  1 

Day  of  SAR  Percentage 

the  Week  Occurrences  Total  SAR  Cases 

Monday  . 2  16.67  % 

Tuesday  .  0  0.00  % 

Wednesday  .  0  0.00  % 

Thursday  .  0  0.00  % 

Friday  .  5  41.67  % 

Saturday  .  5  41.67  % 

Sunday  .  0  0.00  % 


Total  SAR  Cases 

Evaluated .  12 


Figure  B.22  SAR  Day  of  Week  Frequency  Statistics. 


1 


►  -  a1,  Mi. 


tl-  »*.‘i 


!^1  W\W.^n fvifvvrvi^  vr^  vr»  im  urw 


US  Coast  Guard  Group  Monterey 
SAR  Case  Location  Frequency 
For  Major  Grid  Areas 
During  Period  01/01/1980  -  01/01/1988 


Total 

SAR  Cases  - 

12 

1 

1 

Date  - 

08/15/1987 

\ 

Page  -  1  \ 

Grid  Area  North 
Designation  Boundary 

South 

Boundary 

East 

Boundary 

West  Total 

Boundary  Occurrences 

\ 

Percentage 

Total 

SAR  Cases 

A 

37.30 

37.00 

122.30 

123.00 

0 

0.00  % 

B 

37.30 

37.00 

122.00 

122.30 

0 

0.00  %  ! 

C 

37.00 

36.30 

123.00 

123.30 

0 

0.00  % 

D 

37.00 

36.30 

122.30 

123.00 

0 

0.00  % 

E 

37.00 

36.30 

122.00 

122.30 

0 

0.00  % 

F 

37.00 

36.30 

121.30 

122.00 

4 

33.33  %  ! 

G 

36.30 

36.00 

123.00 

123.30 

1 

8.33  %  i 

H 

36.30 

36.00 

122.30 

123.00 

2 

16.67  %  1 

I 

36.30 

36.00 

122.00 

122.30 

2 

16.67  %  I 

\ 

J 

36.30 

36.00 

121.30 

122.00 

0 

0.00  %  ^ 

K 

36.00 

35.30 

122.30 

123.00 

0 

0.00  %  j 

L 

36.00 

35,30 

122.00 

122.30 

0 

0.00  %  1 

M 

36.00 

35.30 

121.30 

122.00 

0 

0.00  %  j 

N 

36.00 

35.30 

121.00 

121.30 

0 

0.00  %  : 

0 

35.30 

35.00 

122.30 

123.00 

0 

0.00  % 

P 

35.30 

35.00 

122.00 

122.30 

1 

8.33  % 

Q 

35.30 

35.00 

121.30 

122.00 

0 

0.00  %  ; 

R 

35.30 

35.00 

121.00 

121.30 

1 

8.33  %  -i 

Figure  B.23  Major  Grid  Area  SAR  Frequency. 
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Date  -  08/15/1987  Page  -  2 


Grid  Area  North 
Designation  Boundary 

South 

Boundary 

East 

Boundary 

West  Total 

Boundary  Occurrences 

Percentage 

Total 

SAR  Cases 

S 

35.30 

35.00 

120.30 

121.00 

0 

0.00  % 

T 

35.00 

34.30 

122.00 

122.30 

0 

0.00  % 

U 

35.00 

34.30 

121.30 

122.00 

0 

0.00  % 

V 

35.00 

34.30 

121.00 

121.30 

0 

0.00  % 

W 

35.00 

34.30 

120.30 

121.00 

0 

0.00  % 

X 

34.30 

34.00 

121.30 

122.00 

0 

0.00  % 

Y 

34.30 

34.00 

121.00 

121.30 

0 

0.00  % 

Total  SAR  Cases  in  Major  Grid  Areas . . .  11  91.67  % 

Total  SAR  Cases  Outside  Grid  Areas .  1  8.33  % 

Total  SAR  Cases .  12 


Figure  B.23  Major  Grid  Area  SAR  Frequency,  (cont'd.) 
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US  Coast  Guard  Group  Monterey 
SAR  Case  Location  frequency 
For  Minor  Grid  Areas  (Coastline) 
During  Period  01/01/1980  -  01/01/1988 


Total  SAR  Cases  -  12 


Date  -  08/15/1987 

Grid  Area  North 
Designation  Boundary 

South 

Boundary 

East 

Boundary 

West  Total 

Boundary  Occurrences 

Page  -  1 

Percentage 
Total 
SAR  Cases 

01 

37.10 

37.05 

122.20 

122.25 

0 

0.00  % 

02 

37.10 

37.05 

122.15 

122.20 

0 

0.00  % 

03 

37.05 

37.00 

122.20 

122.25 

0 

0.00  % 

04 

37.05 

37.00 

122.15 

122.20 

0 

0.00  % 

05 

37.05 

37.00 

122.10 

122.15 

0 

0.00  % 

06 

37.00 

36.55 

122.15 

122.20 

0 

0.00  % 

07 

37.00 

36.55 

122.10 

122.15 

0 

0.00  % 

08 

37.00 

36.55 

122.05 

122.10 

0 

0.00  % 

09 

37.00 

36.55 

122.00 

122.05 

0 

0.00  % 

10 

37.00 

36.55 

121.55 

122.00 

0 

0.00  % 

11 

37.00 

36.55 

121.50 

121.55 

0 

0.00  % 

12 

36.55 

36.50 

122.00 

122.05 

0 

0.00  % 

13 

36.55 

36.50 

121.55 

122.00 

0 

0.00  % 

14 

36.55 

36.50 

121.50 

121.55 

■  0 

0.00  % 

15 

36.55 

36.50 

121.45 

121.50 

0 

0.00  % 

16 

36.50 

36.45 

122.00 

122.05 

0 

0.00  % 

17 

36.50 

36.45 

121.55 

122.00 

0 

0.00  % 

18 

36.50 

36.45 

121.50 

121.55 

1 

8.33  % 

19 

36.50 

36.45 

121.45 

121.50 

0 

0.00  % 

Figure  B.24  Minor  Grid  Area  SAR  Frequency. 
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Date  -  08/15/1987 

Grid  Area  North 
Designation  Boundary 

South 

Boundary 

East 

Boundary 

West  Total 

Boundary  Occurrences 

Page  -  2 

Percentage 
Total 
SAR  Cases 

20 

36.45 

36.40 

122.00 

122.05 

0 

0.00  % 

21 

36.45 

36.40 

121.55 

122.00 

0 

0.00  % 

22 

36.45 

36.40 

121.50 

121.55 

0 

0.00  % 

23 

36.45 

36.40 

121.45 

121.50 

0 

0.00  % 

24 

36.40 

36.35 

122.00 

122.05 

0 

0.00  % 

25 

36.40 

36.35 

121.55 

122.00 

3 

25.00  % 

26 

36.40 

36.35 

121.50 

121.55 

0 

0.00  % 

27 

36.40 

36.35 

121.45 

121.50 

0 

0.00  % 

28 

36.35 

36.30 

121.55 

122.05 

0 

0.00  % 

29 

36.30 

36.25 

121.53 

122.05 

0 

0.00  % 

30 

36.25 

36.20 

121.52 

122.05 

0 

0.00  % 

31 

36.20 

36.15 

121.50 

122.05 

0 

0.00  % 

32 

36.15 

36.00 

121.30 

122.00 

0 

0.00  % 

33 

36.00 

35.40 

121.15 

121.45 

0 

0.00  % 

34 

35.40 

35.20 

120.45 

121.30 

1 

8.33  % 

35 

35.20 

35.00 

120.35 

121.10 

0 

0.00  % 

36 

35.00 

34.40 

120.35 

121.00 

0 

0.00  % 

37 

34.40 

34.27 

120.28 

121.00 

0 

0.00  % 

Total  SAR  Cases  in  Minor  Grid/Coastline  Areas .  5  41.67  % 

Total  SAR  Cases  Outside  Grid  Areas . ; .  7  58.33  % 

Total  SAR  Cases .  12 


Figure  B.24  Minor  Grid  Area  SAR  Frequency,  (cont'd.) 
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us  Coast  Guard  Group  Monterey 
SAR  Case  Location  Frequency 
For  Small  Boat  OPS  Area 
During  the  Period:  01/01/1980  -  01/01/1988 


Total  SAR  Cases  -  12 


Date:  08/15/1987 

Page:  1 

Percentage 

Total 

Area 

Occurrences 

SAR  Cases 

Inside  Small  Boat  OPS  Area  . 

.  7 

58.33  % 

Outside  Small  Boat  OPS  Area  . . 

.  5 

41.67  % 

***  NOTE  *** 

The  Small  Boat  OPS  Area  is  defined  as  the  area  bounded  by 
the  following  coordinates: 


South 

North 

Boundary 

Boundary 

36-10  N 

36-18  N 

36-18 

36-37 

36-37 

36-48 

36-48 

36-53 

36-53 

36-57 

36-57 

37-00 

37-00 

37-05 

37-05 

37-10 

East 

West 

Boundary 

Boundary 

121-40  W 

122-20  W 

121-40 

122-25 

121-40 

122-30 

121--10 

122-35 

121-40 

122-40 

121-40 

122-45 

121-40 

122-45 

121-40 

122-30 

Figure  B.26  Small  Boat  Operations  Area  SAR  Frequency. 


I 


I 

2! 


.*  -1 


in>WX)Wlf'Vlf^<  vuwvwiffnu  prwwTWP 


US  Coast  Guard  Group  Monterey 
SAR  Case  Times  Summary  (in  hours) 

For  the  Period:  01/01/1980  -  01/01/1988 

SS=SSSS=SS£*73SSSSSSSSSS=SSS==SS==SS==S=== 


Date:  08/15/1987 

Number 
of  Cases 

Examined 

Total 

Unit  Time 
Expended 

Average 
Unit  Time 
Expended 

Page 

Maximum 

Time 

Expended 

!:  1 

Minimun 

Time 

Expended 

15 

Total  Time 

Expended  . 

111.8 

7.5 

14.5 

2.2 

15 

Total  Time  to 

Being  on  Scene  .... 

22.7 

1.5 

3.5 

0.6 

14 

Total  Time  to 

Being  Alongside 
Distressed  Vessel  . 

34.7 

2.5 

11.1 

0.8 

14 

Total  Time  in 
Searching  for 
Distressed  Vessel  . 

13.3 

0.9 

9.3 

0.0 

11 

Total  Time 
in  Towing 

Distressed  Vessel  . 

40.8 

3.7 

7.5 

1.1 

Figure  B.27  SAR  Unit  Time  Summary. 
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US  Coast  Guard  Group  Monterey 
Boarding  Location  Frequency 
For  Small  Boat  OPS  Area 
During  the  Period:  01/01/1980  -  01/01/1988 


Total  Boardings  -  8 


Date:  08/15/1987 

Page ;  1 

Percentage 

Total 

Area 

Occurrences 

Boardings 

Inside  Small  Boat  OPS  Area . . 

.  3 

37.50  % 

Outside  Small  Boat  OPS  Area . . 

.  5 

62.50  % 

***  NOTE  *** 

The  Small  Boat  OPS  Area  is  defined  as  the  area  bounded  by 
the  following  coordinates: 


South 

North 

East 

West 

Boundary 

Boundary 

Boundary 

Boundary 

36-10  N 

36-18  N 

121-40  W 

122-20  W 

36-18 

36-37 

121-40 

122-25 

36-37 

36-48 

121-40 

122-30 

36-48 

36-53 

121-40 

122-35 

36-53 

36-57 

121-40 

122-40 

36-57 

37-00 

121-40 

122-45 

37-00 

37-05 

121-40 

122-45 

37-05 

37-10 

121-40 

122-30 

Figure  B.47  Small  Boat  Operations  Area  Boarding  Frequency. 
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US  Coast  Guard  Group  Monterey 
Vessel  Intelligence 

For  the  Periodj  01/01/1980  -  01/01/1988 

***  Stolen  Vessel  List  *** 


Date:  08/15/1987 

Vessel 

Name 

miss  barbs 

miss  cannibis 

miss  cocaine 

miss  cocaine 

miss  everyday 

miss  mariposa 


Page :  1 

Date  of 
Intelligence 

02^5/198t^ 

05/18/1985 

06/01/1985 

05/20/1986 

08/08/1985 

05/06/1986 


Figure  B.29  Stolen  Vessel  Listing. 
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US  Coast  Guard  Group  Monterey 
Boarding  Unsafe  Condition  Summary 
For  the  Periods  01/01/1980  -  01/01/1988 


Dates  08/15/1987 


Total  Boardings 


Unsafe  Condition  Occurrences 


8 

Pages 

Percentage  of 
Total  Boardings 


1 


Unsafe  Conditions  --- 

Terminated  Use  .  3 

Corrected  on  the  Spot  .  0 

Overloaded  .  2 

AccuTiiulation  of 

Fuel  in  Bilges  .  3 

Fuel  Leak  --- 

Engine  or  Fuel  System .  2 

Manifestly  Unsafe  Voyage  . .  3 

Hazardous  Bars 

(13th  District)  .  1 

Alcohol  Condition  .  6 

Other  .  1 


37.50  % 
0.00  % 
25.00  % 

37.50  % 

25.00  % 

37.50  % 

12.50  % 
75.00  % 
12.50  % 


1 


Total  Unsafe  Conditions  ...  21 


Warning  Issued  .  4  50.00  % 

No  Violation  Found  .  0  0.00  % 

Figure  B.30  Boarding  Unsafe  Condition  Summary. 
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US  Coast  Guard  Group  Monterey 
Demographics  for  Violation  —  54 
Numbering 

For  the  Period;  01/01/1580  -  01/01/1988 

***  Vessel  Construction  Type  *** 


Date:  08/15/1987 


Page ;  1 


Construction 

Type  Occurrences 


Percentage 

Total 

Violation-54 


Percentage 

Total 

Boardings 


open 

closed 


2  28.57  S„  25.00  % 

5  71.43  %  62.50  % 


unknown 


0 


0.00  % 


0.00  % 


Total  Occurrences.  7  87.50  % 

Total  Boardings...  3 


Figure  B.3I  Violation  Summary  by  Vessel  Construction  Type, 


US  Coast  Guard  Group  Monterey 
Demographics  for  Violation  ---  54 
Numbering 

For  the  Period:  01/01/1980  -  01/01/1988 

***  Vessel  Engine  Compartment  Type  *** 


Date:  08/15/1987 

Engine 

Compartment 

Type 

Occurrences 

Percentage 

Total 

Violation-54 

Page :  1 

Percentage 

Total 

Boardings 

open 

3 

42.86  % 

37.50  % 

closed 

4 

57.14  % 

50.00  % 

unknown 

0 

0.00  % 

0.00  % 

Total  Occurrences.  7  87.50  % 

Total  Boardings...  3 


Figure  B.32  Violation  Summary  by  Engine  Compartment  Type. 
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us  Coast  Guard  Group  Monterey 
Vessel  Summary  Listing 


Date:  08/15/1987 
Page :  1 


Vessel 

HIN 


111111111111 
miss  alfa 

11111111 

34f56 

Catalina, 


TYP-1  USE-2  MK-criscraft  MD-supra  YR-1981  INS-  12 
LEN-  65(ft)  3(in)  VALUE-  $75,000.00 

CONST-2  ENG-2  FUEL-1  HULL-3  PROP-2 
COLORS:  CB-blu  DK-brn  HL-red  TR-wht  SL-unk  SL#- 

CME-n  YR-  MSTS—  S/S-  H/P-120 

ca  MRKS- 


333333333333  TYP-2  USE-1  MK-bayliner  MD-supra  YR-1980  TNS-  12 

miss  Charlie  LEN-  34(ft)  7 (in)  VALUE-  $45,000.00 

33333333  CONST-2  ENG-2  FUEL-2  HULL-4  PROP-3 
3333333333  COLORS:  CB-red  DK-blu  HL-brn  TR-wht  SL-unk  SL#- 

ki3we  CME--  YR-  MSTS-0  S/S-  H/P-170 

monterey,  ca  MRKS- 


777777777777  TYP-1  USE-1  MK-trawler  MD-  YR-1967  TNS-  17 

miss  cocaine  LEN-  85(ft)  4(in)  VALUE-  $25,000.00 

77777777  CONST-2  ENG-2  FUEL-2  HULL-3  PROP-3 

COLORS:  CB-wht  DK-wht  HL-wht  TR-wht  SL-unk  SL#- 

CME-n  YR-  MSTS-0  S/S-  ’  H/P-250 

moss  landing,  ca  MRKS- 


444444444444  tYP-3  USE-2  MK-express  MD-37  YR-1983  TNS-  8 

miss  delta  LEN-  37(ft)  4(in)  VALUE-  $42,000.00 

44444444  CONST-1  ENG-1  FUEL-1  HULL-1  PROP-1 
4444444444  COLORS:  CB-wht  DK-brn  HL-blu  TR-wht  SL-brn  SL#-12 
CME-n  YR-  MSTS-2  S/S-  H/P-40 

moss  landing,  ca  MRKS- 


555555555555  TYP-1  USE-2  MK-boston  MD-whaler  YR-1984  TNS-  1 
miss  echo  LEN-  23 (ft)  3 (in)  VALUE-  $6,000.00 

55555555  CONST-1  ENG-1  FUEL-1  HULL-2  PROP-1 
5555555555  COLORS:  CB-unk  DK-unk  HL-wht  TR-blu  SL-unk  SL#- 

CME--  YR-  MSTS-0  S/S-  H/P-80 

las  vegas,  nv  MRKS- 


Figure  B.33  Vessel  Listing. 
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US  Coast  Guard  Group  Monterey 
Demographics  for  Violation  —  54 
Numbering 

For  the  Period:  01/01/1980  -  01/01/1988 
***  Vessel  Fuel  Compartment  Type  *** 


Date:  08/15/1987 

Fuel 

Compartment 

Type 

Occurrences 

Percentage 

Total 

Violation-54 

Page :  1 

Percentage 

Total 

Boardings 

open 

4 

57.14  % 

50.00  % 

closed 

3 

42.86  % 

37.50  % 

unknown 

0 

0.00  % 

0.00  % 

Total  Occurrences.  7  87.50  % 

Total  Boardings ...  3 


Figure  B.34  Violation  Summary  by  Fuel  Compartment  Type. 
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US  Coast  Guard  Group  Monterey 
Demographics  for  Violation  —  54 
Numbering 

the  Periods  01/01/1980  -  01/01/1988 
***  Vessel  Hull  Material  Type  *** 

ssss==ss:=3sss=ssssssssssssssssssssss: 


Date*  08/15/1987 

Hull 

Material 

Type 

Occurrences 

Percentage 

Total 

Violation-54 

Page : 

Percentage 

Total 

Boardings 

wood 

1 

14.29  % 

12.50  % 

aluminum 

1 

14.29  % 

12.50  % 

steel 

3 

42.86  % 

37.50  % 

fiberglass 

2 

28.57  % 

25.00  % 

rubber, vinyl 

0 

0.00  % 

0.00  % 

cement 

0 

0.00  % 

0.00  % 

other 

0 

0.00  % 

0.00  % 

unknown 

0 

0.00  % 

0.00  % 

Total  Occurrences. 

7 

87.50  % 

Total  Boardings... 

a 

1 


Figure  B.35  Violation  Summary  by  Hull  Material  Type. 


US  Coast  Guard  Group  Monterey 
Vessel  Intelligence  Information 


Date:  08/15/1987 
Page :  1 

DATE  OF  INTEL  VESSEL  NAME  EPIC  CODE  STOLEN  ? 

03/01/1983  miss  alfa  1  n 

suspected  of  smuggling  illegal  firearms 


DATE  OF  INTEL  VESSEL  NAME  EPIC  CODE  STOLEN  ? 

05/05/1985  miss  alfa  1  n 

vessel  seen  in  Cartegena,  Columbia  taking  on  a  load  of  marijuana 


Figure  B.36  Query  Vessel  Intelligence  History. 
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US  Coast  Guard  Group  Monterey 
Boardinq  Violation  Statistical  Summary 
-  Period  *'  . . . 


01/01/1980  -  01/01/1988 


Total  Boardings 


Date  -  08/15/1987 


Violation 


Occurrences 


Percentage  of 
Total  Boardings 


Numbering. 


Certificate. 


Personal  Flotation  Device... 


Sound  Producing  Device. 


Fire  Extinguisher. 


Flame  Control. 


Ventilation. 


Navigation  Anchor  Lights .... 

Negligent  Operations . 

Failure  To  Terminate . 

Pollution  Placard  Not  Posted 
Marine  Sanitation  Devices... 


Visual  Distress  Signals. 


Document  Official  Numbers... 


Total'  Violations. 


87.50  % 

62.50  % 
75.00  % 


75.00  % 

12.50  % 
25.00  % 
25.00  % 

37.50  % 

12.50  % 
25.00  % 
25.00  % 

37.50  % 

37.50  % 

87.50  % 


Figure  B.37  Boarding  Violation  Summary. 
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us  Coast  Guard  Group  Monterey 
Demographics  for  Violation  ---  54 
Numbering 

For  the  Periodt  01/01/1980  -  01/01/1988 
***  Vessel  Length  Profile  *** 


Date:  08/15/1987 
Vessel  Length 

(feet)  Occurrences 

less  than  20  .  0 

20  -  29  .  1 

30  -  39  .  1 

40  -  49  .  1 

50  -  59  . 0 

60  -  69  .  1 

70  -  79  .  0 

80  -  89  .  2 

90  -  99  .  1 

100  or  greater  .  0 


Total  Occurrences .  7 

Total  Boardings .  8 


Page:  1 

Percentage 

Total 

Violation-54 

Percentage 

Total 

Boardings 

0.00 

% 

0.00  % 

14.29 

% 

12.50  % 

14.29 

% 

12.50  % 

14.29 

% 

12.50  % 

0.00 

% 

0.00  % 

14.29 

% 

12.50  % 

0.00 

% 

0.00  % 

28.57 

% 

25.00  % 

14.29 

% 

12.50  % 

0.00 

% 

0.00  % 

87.50  % 


Figure  B.38  Violation  Summary  by  Vessel  Length. 
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US  Coast  Guard  Group  Monterey 
Demographics  for  Violation  —  54 
Numbering 

For  the  Period:  01/01/1980  -  01/01/1988 

***  Vessel  Propulsion  Type  *** 


Date:  08/15/1987 


Page :  1 


Propulsion 

. . 

outboard 

inboard  gas 

inboard  diesel 

inbrd/outbrd 

jet  propelled 

sail  only 

manual 

other 

unknown 


Total  Occurrences. 
Total  Boardings . . . 


Occurrences 

Percentage 

Total 

Violation-54 

Percentage 

Total 

Boardings 

3 

42.86  % 

37.50  % 

1 

14.29  % 

12.50  % 

3 

42.86  % 

37.50  % 

0 

0.00  % 

0.00  % 

0 

0.00  % 

0.00  % 

0 

0.00  % 

0.00  % 

0 

0.00  % 

0.00  % 

0 

0.00  % 

0.00  % 

0 

0.00  % 

0.00  % 

7 

87.50  % 

8 


Figure  B.39  Violation  Summary  by  Vessel  Propulsion  Type. 


•I**  I 


Vessel 
Name  /  HIN 


miss  alfa 

111111111111 


miss  alfa 

111111111111 


miss  Charlie 

333333333333 


miss  Charlie 

333333333333 


miss  cocaine 

777777777777 


miss  delta 

444444444444 


miss  echo 

555555555555 


miss  foxtrot 

666666666666 


miss  foxtrot 

666666666666 


miss  kilo 

999999999999 


US  Coast  Guard  Group  Monterey 
Vessel  Operators  Summary  Listing 


Date:  08/15/1987 
Page :  1 


Vessel 

Operator 


Operator 
Address  /  Telno 


flinstone 
fred _ 


alien 

david 


Simmons 

richard 


Cranston 

ralph 


public 

iohn 


Simpson 


Simmons 

richard 


williams 
scott _ 


flintstone 
fred _ 


Figure  B.40  Vessel  Operators  Summary  Listing. 


US  Coast  Guard  Group  Monterey 
Vessel  Owners  Sununary  Listing 


Date:  08/15/1987 
Page :  1 

Owner 

Address  /  Telno 


Figure  B.41  Vessel  Owners  Summary  Listing. 


US  Coast  Guard  Group  Monterey  Vessel  Query  Information 

sxsssssaasssssBsaaxsassaxsxsssBBsssssxssssssBssssssssss 


NAME  -  miss  alfa 
HIN  -  111111111111 
NO  -  11111111 
OFF.  NO  - 

HAKE  -  criscraft 
MODEL  -  supra 
YEAR  -  1981 
TONS  -  12 

LEN  (ft)  -  65 

LEN  (in)  -  3 
HORSEPOWER  -  120 

HOMEPORT  -  Catalina,  ca 
CALL  SIGN  -  34f56 

VALUE  -  $75,000.00 

CME  DECAL  -  n 
YEAR  - 


USE  -  pleasure 
TYPE  -  open  m/b 
PROPULSION  -  inboard  gas 
HULL  MATERIAL  -  Steel 
ENGINE  COMPARTMENT  -  closed 
FUEL  COMPARTMENT  -  open 
CONSTRUCTION  -  closed 

SUPERSTRUCTURE  DESC  - 
MASTS  - 

COLORS ! 

HULL  -  red 
TRIM  -  wht 
CABIN  -  blu 
DECK  -  brn 
SAIL  -  unk 
SAIL  NUMBER  - 


UNUSUAL  HARKINGS  - 


Figure  B.42  Query  Vessel  Information  Listing. 


US  Coast  Guard  Group  Monterey 
Demographics  for  Violation  —  54 
Numbering 

For  the  Period*  01/01/1980  -  01/01/1988 

***  Vessel  Type  Profile  *** 

S9S=ZSS=aK9SSSSSeSS====2SS=SS==S==S==SS=SS== 


Date:  08/15/1987 

Vessel  Type 

Occurrences 

Percentage 

Total 

Violation-54 

Page :  1 

Percentage 

Total 

Boardings 

open  m/b 

3 

42.86  % 

37.50  % 

closed  m/b 

2 

28.57  % 

25.00  % 

sail 

2 

28.57  % 

25.00  % 

rowboat 

0 

0.00  % 

0.00  % 

canoe /kayak 

0 

0.00  % 

0.00  % 

houseboat 

0 

0.00  % 

0.00  % 

inflatable 

0 

0.00  % 

0.00  % 

other 

0 

0.00  % 

0.00  % 

unknown 

0 

0.00  % 

0.00  % 

Total  Occurrences. .  7  87.50% 

Total  Boardings .  8 


Figure  B.43  Violation  Summary  by  Vessel  Type. 


For 


US  Coast  Guard  Group  Monterey 
Demographics  for  Violation  —  54 
Numbering 

the  Period:  01/01/1980  -  01/01/1988 
***  Vessel  Use  Profile  *** 


Total  Occurrences.  7  87.50  % 

Total  Boardings...  8 


Figure  B.44  Violation  Summary  by  Vessel  Use. 
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US  Coast  Guard  Group  Monterey 
Demographics  for  Violation  - —  54 
Numbering 

For  the  Periods.  01/01/1980  -  01/01/1988 
***  Vessel  Year  Profile  *** 


Dates  08/15/1987 

Vessel 

Years 

Occurrences 

Percentage 

Total 

Violation-54 

Page  s  1 

Percentage 

Total 

Boardings 

earlier  than  1960  .... 

1 

14.29  % 

12.50  % 

1960  -  1964  . 

0 

0.00  % 

0.00  % 

1965  -  1969  . 

1 

14.29  % 

12.50  % 

1970  -  1974  . 

0 

0.00  % 

0.00  % 

1975  -  1979  . 

0 

0.00  % 

0.00  % 

1980  -  1984  . 

5 

71.43  % 

62.50  % 

1985  -  1989  . 

0 

0.00  % 

0.00  % 

1990  -  1994  . 

.  0 

0.00  % 

0.00  % 

1995  -  1999  . 

0 

0.00  % 

0.00  % 

2000  or  later  . 

.  0 

0.00  % 

0.00  % 

Total  Occurrences .  7  0.00  % 

Total  Boardings .  8 


Figure  B.45  V  ition  Summary  by.  Vessel  Year. 


TABLE  3 

FIGURE  -  PROGRAM  CORRESPONDENCE 


FIGURE  NUMBER 
B.l 
B.2 
B.3 
B.4 
B.5 
B.6 
B.7 
B.8 
3.9 
B.IO 
B.ll 
B.12 
B.13 
B.14 
B.15 
B.16 
B.17 
B.18 
B.19 
B.20 
B.21 
B.22 
B.23 
B.24 
B.46 
B.26 
B.27 
B.28 
B.29 
B.30 
B,3l 
B.32 
B.33 
B.34 
B.35 
B.36 
B.37 
B.38 
B.39 
B.40 
B.41 
B.42 
B.43 
B.44 
B.45 


REPORT  NAME 
boarding 
bomajor 
bominor 
boqpm 
cmerpt 
da3/night 
epicrpt 
epicsum 
immedsar 
intelsum 
operator 
opervsls 
opqpm 
owners 
ownvsls 
owqpm 
perintel 
perqpm 
piniqpm 
sar 

sardates 

sardays 

sarmajor 

samunor 

sarqpm 

sarsmbt 

sartimes 

smboatrpt 

stolesum 

unsfreq 

vconstmo 

vengmo 

vessel 

vfuelmo 

vhullmo 

vintqpm 

violfreq 

vlenftmo 

vpropmo 

vsloper 

vs  1  owner 

vslqpm 

vtypemo 

vusemo 

vyearmo 


mm 


APPENDIX  C 

SARELTIS  PHYSICAL  STRUCTURE 


I 

* 


The  physical  structure  of  SARELTIS  is  presented  in  this  appendix  through 
various  types  of  database  documentation.  This  documentation  includes  the  following: 

•  Menu  Hierarchy  Charts  (Figure  C.l  through  Figure  C.l  1) 

•  A  listing  of  all  current  Tables 

•  A  listing  of  all  current  Report  Formats 

•  A  listing  of  all  current  Entry/ Edit  Forms 

•  Database  Table  Compositions 

•  A  listing  of  Reports  and  Associated  Tables 

•  A  listing  of  Database  Attributes  sorted  by  Attribute  Name 

•  A  listing  of  Database  Attributes  sorted  by  Input  Source 

•  A  listing  of  Database  Attributes  sorted  by  Program  Where  Used 

•  A  listing  of  Variables  sorted  by  Variable  Name 

•  A  listing  of  Variables  sorted  by  Program  Where  Used 

•  A  listing  of  the  Data  Entry  /  Edit  Rules 


REPORTS 


Figure  C.5  Reports  Master  Menu  Hierarchy  Chan. 
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US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  {SARELTIS)  DATABASE 


Tables 


BOARDING 
COLORS 
DAYS 
FORMS 
M  INAREA 
OPVSL 
“ULES 
^ATES 
OLS 


R 

S' 

V 


BOATPROP 

CONSTR 

DISTRICT 

FUELCOMP 

NATIONS 

OWNERS 

REPORTS 

STATUS 

VSLINTEL 


BOATTYPE 

COURSES 

ENGCOMP 

HULLMAT 

OPERATOR 

OWVSL 

SAR 

VARDICT 


BOATUSE 

DATADICT 

EPIC 

MAJAREA 

OPOWN 

PERINTEL 

SARUNITS 

VESSEL 


Reports 


BOARDING 

CMERPT 

EPICSUM 

OPERVSLS 

OWQPRN 

SAR 

SARMINOR 

SMBOATRP 

VCONSTMO 

VHULLMO 

VPROPMO 

VTYPEMO 


BOMAJOR 

DATADICT 

IMMEDSAR 

OPQPRN 

PEKINTEL 

SARDATES 

SARQPRN 

STOLESUM 

VENGMO 

VINTQPRN 

VSLOreR 

VUSEMO 


BOMINOR 

DAYNIGHT 

INTELSUM 

OWNERS 

PERQPRN 

SARD  AYS 

SARSMBT 

UNSFREQ 

VESSEL 

VIOLFREO 

VSLOWN^ 

VYEARMO 


BO( 

EPICRPT 
OPERATOR 
OWNVSLS 
PINTQPRN 
SARMAJOR 
SARTIMES 
VARDICT 
VFUELMO 
VLENFTMO 
VSLQPRN 


Forms 


BOMODl 

CG4100A1 

CG4I00A5 

CG4100A9 

M  INAREA 

OWNQUERY 

PERQUERl 

SARFORMl 

SARFORM5 

SARrORM9 

SUNITMOD 

VINTQUER 

VSLQDERY 


BOMOD2 

CG4100A2 

CG4100A6 

DATADICT 

OPERMODI 

OWNRMODI 

PERQUER2 

SARFORM2 

SARFORM6 

SARMOD 

VARDICT 

VIOLS 


BOMOD3 

CG4100A3 

CG4100A7 

HINQUERY 

OPERMOD2 

OWNRMOD2 

PINTFORM 

SARFORM3 

SARFORM7 

SARQUERY 

VHINFORM 

VSLMODl 


BRDQUERY 

CG4100A4 

CG4100A8 

MAJAREA 

OPQUERY 

OWOPFORM 

PINTQUER 

SARFORM4 

SAR  FORM  8 

SBDFORMl 

VINTFORM 

VSLMOD2 


Composition  of  Database  Tables 


TeJsla:  datadlct 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

fName  Type  Length  Key 

attname  TEXT  8  characters  yes 

2  relname  TEXT  8  characters  yes 

3  type  TEXT  7  characters 

4  length  TEXT  3  characters 

5  attdesc  TEXT  40  characters 

6  source  TEXT  15  characters 


Table:  operator 
Read  Password:  NO 
Modify  Password:  NO 


Column  definitions 
#  Name  Type 

1  op  1  name  TEXT 

2  opfname  TEXT 

3  opmi  TEXT 

4  opaddr  TEXT 

5  opcity  TEXT 

6  op state  TEXT 

7  opzip  TEXT 

8  optelno  TEXT 

9  opdob  DATE 

10  opcourse  TEXT 

11  opid  INTEGER 


Length  Key 

20  characters  yes 
15  characters  yes 

1  characters 
25  characters 
18  characters 

2  characters 
9  characters 

12  characters 
1  value( s)  yes 
1  characters 
1  valufi(  s)  yes 


Table:  opvsl 
Read  Password:  NO 
Modify  Password:  NO 

Column  definitions 

#  Name  Type  Length  Key 

1  vhinoper  TEXT  12  characters  yes 

2  idoper  INTEGER  1  value( s)  yes 


Table;  owners 
Read  Password:  NO 
Modify  Password;  NO 


Column  definitions 
#  Name  Type 

1  ownlname  TEXT 

2  ownfname  TEXT 

3  ownmi  TEXT 

4  ownaddr  TEXT 

5  owncity  TEXT 

6  ownstate  TEXT 

7  ownzip  TEXT 

8  owntelno  TEXT 

9  owndob  DATE 

10  ownid  INTEGER 


Length  Key 

20  characters  yes 
15  characters  yes 

1  characters 
25  characters 
18  characters 

2  characters 
9  characters 

12  characters 
1  value(s)  yes 
1  valuers )  yes 
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Table:  owvsl 
Read  Password:  NO 
Modify  Password:  NO 

Column  definitions 

Name  Type  Length  Key 

vhinown  TEXT  12  characters  yes 

2  idowner  INTEGER  1  value(s)  yes 


Tedsle:  perintel 
Read  Password:  NO 
Modify  Password:  NO 

Column  definitions 
#  Name  Type 

1  intlname  TEXT 

2  incdob  DATE 

3  pintreml  TEXT 

4  pintrem2  TEXT 

5  pintrem3  TEXT 

6  pintdate  DATE 

7  intfname  TEXT 

8  intmi  TEXT 


Table:  sar 
Read  Password:  NO 
Modify  Password:  NO 

Column  definitions 

Name  Type  Length  Key 

folderno  TEXT  7  characters  yes 


2 

ucn 

TEXT 

8 

characters 

yes 

3 

mucn 

TEXT 

8 

characters 

4 

sardate 

DATE 

1 

value( s) 

yes 

5 

sarday 

TEXT 

3 

characters 

6 

sartlme 

TIME 

1 

value! 

f  s) 

7 

s sunrise 

TIME 

1 

value! 

s) 

8 

ssunset 

TIME 

1 

value! 

S) 

9 

sarnod 

TEXT 

25 

characters 

10 

sarpob 

INTEGER 

1 

value( s) 

11 

sarvhin 

TEXT 

12 

characters 

yes 

12 

sarlat 

REAL 

1 

value! 

[  s) 

13 

sarlong 

REAL 

1 

value! 

si 

14 

offshore 

INTEGER 

1 

value! 

si 

15 

immedsar 

TEXT 

1 

characters 

16  winddir  INTEGER 

Column  definitions 

1 

value( s ) 

if 

Name 

windspd 

I^EGER 

Length 

1  value! 

s) 

Key 

18 

visdist 

INTEGER 

1 

value! 

si 

19 

clouds 

INTEGER 

1 

value! 

si 

20 

ceiling 

INTEGER 

1 

value! 

si 

21 

seas 

INTEGER 

1 

value! 

si 

22 

swells 

INTEGER 

1 

value! 

i  s) 

Length  Key 

20  characters  yes 
1  value(s)  yes 
70  characters 
70  charact  jrs 
70  characters 
1  value(  s) 

15  characters 
1  characters 
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r .  ■  — — 

I 

! 

k 

I  Table:  vslintel 

«  Read  Password:  NO 

j  Modify  Password:  NO 

Column  definitions 

fName  Length  Key 

intvname  TEXT  17  characters  yes 

2  intdate  DATE  1  value(s) 

3  epiccode  TEXT  1  characters 

4  stolen  TEXT  1  characters 

5  vremarkl  TEXT  70  characters 

6  vremark2  TEXT  70  charactets 

7  vremarkS  TEXT  70  characters 


Table:  vessel 
Read  Password:  NO 
Modify  Password:  NO 


Column  definitions 
#  Name 
1  vslno 


10  vsihp 

11  vsluse 


is  vsieng 


wv 

if 


Name 


26  saiino 


tSt 

Length 

8  characters 

TEXT 

17 

characters 

TEXT 

12 

characters 

TEXT 

10 

characters 

TEXT 

10 

characters 

TEXT 

4 

characters 

INTEGER 

1 

value(  s) 

INTEGER 

1 

value( s) 

INTEGER 

1 

value( s) 

TEXT 

3 

characters 

TEXT 

2 

characters 

TEXT 

2 

characters 

TEXT 

1 

characters 

TEXT 

1 

characters 

TEXT 

'  1 

characters 

TEXT 

1, 

.characters 

.nitions 

tSt 

Length 

1  characters 

TEXT 

1 

characters 

TEXT 

4 

characters 

TEXT 

10 

characters 

TEXT 

25 

characters 

TEXT 

12 

characters 

DOLLAR 

1 

value( s) 

TEXT 

12 

characters 

TEXT 

1 

characters 

TEXT 

8 

characters 

TEXT 

3 

characters 

TEXT 

3 

characters 

TEXT 

3 

characters 

TEXT 

3 

characters 

TEXT 

3 

characters 

TEXT 

40 

characters 

Key 

yes 

yes 


Key 


124 


Table:  boarding 
Read  Password:  NO 
Modify  Password:  NO 


Column  definitions 


! 

Name 

bodate 

Length 

1  valued  s) 

Key 

2 

botlme 

TIME 

1 

value(  s) 

3 

bono 

TEXT 

7 

characters 

yes 

4 

vslpob 

adultpfd 

INTEGER 

1 

valued  s) 

5 

INTEGER 

1 

value:  s) 

6 

childpfd 

owstatus 

INTEGER 

1 

value( s) 

7 

TEXT 

1 

characters 

8 

obsbody 

TEXT 

15 

characters 

9 

obscount 

TEXT 

15 

characters 

10 

obscity 

obsstate 

TEXT 

13 

characters 

11 

TEXT 

2 

characters 

12 

obslat 

REAL 

1 

value(  s) 

13 

obslong 

REAL 

1 

value( s) 

14 

viol54 

TEXT 

1 

characters 

15 

viol55 

TEXT 

1 

characters 

16 

viol56 

TEXT 

1 

characters 

Column  definitions 

# 

Name 

tSt 

Length 

Key 

17 

viol57 

1 

characters 

18 

viol58 

TEXT 

1 

characters 

19 

viol59 

TEXT 

1 

characters 

20 

viol60 

TEXT 

1 

characters 

21 

viol61 

TEXT 

1 

characters 

22 

viol62 

TEXT 

1 

characters 

23 

viol63 

TEXT 

1 

characters 

24 

viol64 

TEXT 

1 

characters 

25 

viol65 

TEXT 

1 

characters 

26 

viol66 

TEXT 

1 

characters 

27 

viol67 

TEXT 

1 

characters 

28 

viol68 

TEXT 

1 

characters 

29 

uns69 

TEXT 

1 

characters 

30 

uns70 

TEXT 

1 

characters 

31 

uns71 

TEXT 

1 

characters 

32 

uns72 

TEXT 

1 

characters 

Column  definitions 

# 

Name 

tI?t 

Length 

Ko’r 

33 

uns73 

1 

characters 

34 

uns74 

TEXT 

1 

characters 

35 

uns75 

TEXT 

1 

characters 

36 

uns76 

text 

1 

characters 

37 

uns77 

text 

1 

characters 

38 

uns78 

TEXT 

1 

characters 

39 

una79 

TEXT 

1 

characters 

40 

boreml 

TEXT 

70 

characters 

41 

borem2 

TEXT 

70 

characters 

42 

borem3 

TEXT 

70 

characters 

43 

boname 

TEXT 

25 

characters 

44 

borate 

TEXT 

5 

characters 

45 

bounit 

TEXT 

25 

characters 

46 

bodist 

TEXT 

2 

characters 

47 

boopfac 

TEXT 

5 

characters 

48 

boday 

TEXT 

3 

characters 

Column  definitions 

4! 

Name 

bsunrise 

T& 

Length 

1  valuef  s) 

Key 

50 

bsunset 

TIME 

1 

value( s) 

51 

bovhin 

TEXT 

12 

characters 

yes 

52 

weapons 

INTEGER 

1 

value(  s) 

125 


Table:  forms 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

fName  Type  1 

fname  TEXT 

2  fdata  TEXT 


Length  Key 

8  characters  yes 
80  characters 


Table:  reports 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

fName  Type  I 

rname  TEXT 

2  rdata  TEXT  : 


Length  Key 

8  characters  yes 
132  characters 


Table:  states 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

fName  Tvpe  I 
abbrev  TEXT 


Length  Key 

2  characters  yes 


Table:  colors 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 
#  Name  Type  1 

1  shade  TEXT 

2  clrdesc  TEXT 


Length  Key 

3  characters  yes 
20  characters 


Table:  days 

Read  Password:  NO 

Modify  Password:  YES 

Column  definitions 
#  Name  Type  I 

1  dayabbr  TEXT 


Length  Key 

3  characters  yes 


Table:  constr 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 
#  Name  Type  I 

1  constype  TEXT 

2  consdesc  TEXT 


Length  Key 

1  characters  yes 
10  characters 


T2d3le:  engcomp 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

tName  Type  I 
ecomptyp  TEXT 
2  ecompdes  TEXT 


Length  Key 

1  characters  yes 
10  characters 
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Table:  fuelcomp 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

tName  Type  Length  Key 

fcomptyp  TEXT  1  characters  yes 

2  fcompdes  TEXT  10  characters 


Teible:  hullmat 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name  Type  Length  Key 

1  hmattype  TEXT  1  characters  yes 

2  hmatdesc  TEXT  15  characters 


Table:  boattype 
Read  Password:  NO 
Modify  Password;  YES 

Column  definitions 

#  Name  Type  Length  Key 

1  vtype  TEXT  2  characters  yes 

2  vtypedes  TEXT  15  characters 


Table:  boatuse 
Read  Password:  NO 
Modify  Password;  YES 

Column  definitions 

fName  Type  Length  Key 

vuse  TEXT  2  characters  yes 

2  vusedesc  TEXT  15  characters 


Table:  boatprop 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name  Type  Length  Key 

1  proptype  TEXT  1  characters  yes 

2  propdesc  TEXT  15  characters 


Table:  status 
Read  Password;  NO 
Modify  Password:  YES 

Column  definitions 

#  Name  Type  Length  Key 

1  ostattyp  TEXT  1  characters  yes 

2  ostatdes  TEXT  30  characters 
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Table:  courses 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

fName  I’YP®  Length  Key 

coursetp  TEXT  1  characters  yes 

2  coursede  TEXT  15  characters 


Table:  majarea 
Read  Password:  NO 
Modify  Password:  YES 


Column  definitions 
#  Name  Type 

1  ma j  grid  TEXT 

2  maj north  REAL 

3  maj south  REAL 

4  ma^east  REAL 

5  majwest  REAL 


Length  Key 

2  characters  yes 
1  value(  s) 

1  valuec  s ) 

1  valuec  s) 

1  value(  s) 


Table:  nations 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

fName  Type  Length  Key 

symbol  TEXT  2  characters  yes 

2  registry  TEXT  30  characters 


Table:  minarea 
Read  Password:  NO 
Modify  Password: 


YES 


Column  definitions 

fName  Type 
mingrid  TEXT 
2  minnorth  REAL 
3  minsouth  REAL 
4  mineast  REAL 
5  minwest  REAL 


Length  Key 

2  characters  yes 
1  valued  s) 

1  valuec  S  i 
1  valuec  S  i 
1  value(  s I 


Table:  epic 

Read  Password:  NO 

Modify  Password:  YES 


Column  definitions 
Name  Type 
epicno  TEXT 

2  epicdscl  TEXT 

3  epicdsc2  TEXT 

4  epicdsc3  TEXT 

5  epicdsc4  TEXT 


Length  Key 

1  characters  yes 
70  characters 
70  characters 
70  characters 
70  characters 


Table:  rules 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

?Name  Type  Length  Key 

numrule  INTEGER  1  value(  s ) 

2  and/or  TEXT  4  characters 

3  colnamel  TEXT  8  characters 

4  tablel  TEXT  8  characters 

5  boolean  TEXT  4  characters 

6  colname2  TEXT  8  characters 

7  table2  TEXT  8  characters 

8  rulvalue  TEXT  40  characters 


Table:  district 
Read  Password;  NO 
Modify  Password:  YES 

Column  definitions 

#  Name  Type  Length  Key 

1  distno  TEXT  2  characters 

2  distdesc  TEXT  35  characters 


Table;  sarunits 
Read  Password:  NO 
Modify  Password:  NO 


Column  definitions 

fName  Type 
foldno  TEXT 
2  unitname  TEXT 
3  uwtime  TIME 
4  uwdate  DATE 
5  oseta  TIME 
6  etadate  DATE 
7  ostime  TIME 
8  osdate  DATE 
9  alngtime  TIME 
10  alngdate  DATE 
11  towtime  TIME 
12  towdate  DATE 
13  dvmoored  TIME 
14  dvmdate  DATE 
15  sutmoor  TIME 
16  sutdate  DATE 


Length  Key 

7  characters  yes 
25  characters 
1  value(  s  'i 
1  valuef  s 
1  valuer  s 
1  valuer  s  ^ 

1  valuer  s  i 
1  valuer  s  i 
1  valuer  s  '* 

1  valuer  s 
1  valuer  s ) 

1  valuer  s ) 

1  valuer  s ) 

1  valuer  s ) 

1  valuer  s ) 

1  valuer  s ) 


Table:  viols 
Read  Password:  NO 
Modify  Password;  YES 

Column  definitions 

#  Name  Type  Length  Key 

1  violno  TEXT  2  characters 

2  violdesc  TEXT  40  characters 


Table:  opovm 
Read  Password:  NO 
Modify  Password:  NO 

Column  definitions 

fName  Type  Length  Key 

ownno  lOTEGER  1  valuers ) 

2  opno  INTEGER  1  value(  s ) 


Table:  verdict 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name  Type  Length  Key 

1  varname  TEXT  8  characters  yes 

2  vartype  TEXT  8  characters 

3  varuse  TEXT  12  characters  yes 

4  vardesc  TEXT  25  characters 
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Report  Format  and  Associated  Table 


REPORT  NAME 

BOARDING 

BOMAJOR 

BOMINOR 

BOgPRN 

CMERPT 

DATADICT 

DAYNIGHT 

EPICRPT 

EPICSUM 

IMMEDSAR 

INTELSUM 

OPERATOR 

OPERVSLS 

OPQPRN 

OWNERS 

OWNVSLS 

owgPRN 

PER^TEL 

PER^RN 

PINTtjPRN 

SAR 

SARDATES 
SARDAYS 
SARMAJOR 
SARMINOR 
SAROPRN 
SARSIVIBT 
SARTIMES 
SMBOATRP 
STOLESUM 
UNSFREO 
VARDICT 
VCONSTMO 
VENGMO 
VESSEL 
VFUELMO 
VHULLMO 
VINTQPRN 
VIOLFRE 


VLENFTN. 
VPROPMO 
VSLOPER 
VSLOWNER 
VSLQPRN 
VTYPEMO 
VUSEMO 
VYEARMO 


ASSOCIATED  TABLE 

BOSUM 
POS  TFR 
POS  TFR 
BOHIS 
TEMP 
DATADICT 
TEMP 
EPICTMP 
EPICSUM 
TEMP 
INTELSUM 
OPSUM2 
OPERVSLS 
TEMP 
OWNSUM2 
OWNVSLS 
TEMP 
PERSUM 
TEMP 
PERINT 
SARSUM 
SARSTAT 
TEMP 
POSITFRC 
POSITFR( 

SARHIS 
TEMP 
TEMP 
TEMP 
STOLESUM 
TEMP 


VARD. 
SUMM 
SUMM 
VSLSU 
SUM' ' 
SUM 

vsl: 

TEM 


ICT 
ARY3 
IARY4 
M 

ARY5 
ARY6 
INT 
IP 
TEMP 

SUMMARY? 

OPERVSLS 

OWNVSLS 

TEMP 

SUMMARYl 

SUMMARY2 

TEMP 


Database  Attributes  Sorted  by  Attribute  Name 


AttName 

RelName  Type 

Len 

Attribute  Description 

abbrev 

states  text 

2 

.  state  abbreviation 

adultpfd 

boarding  Integer 
bosum 

sartimeS  date 

sartime4 

sarunits 

number  of  adult  pfd's  on  board 

alngdate 

date  alongside  distressed  vessel 

alngtime 

sartime3  time 

sartime4 

sarunits 

alongside  time  of  sar  unit 

and/or 

rules  text 

4 

and/or  conjunction  in  editting  rules 

attdesc 

datadict  text 

40 

attribute  description 

attname 

datadict  text 

8 

data  dictionary  attribute  name 

bodate 

boarding  date 
bohis 
bosum 
violsum 

date  of  boarding 

boday 

boarding  text 
bosum 

boarding  text 
bosum 

boarding  text 

bohis 

bosum 

3 

boarding  day  of  week 

bodist 

2 

boarding  offcier  district 

boname 

25 

boarding  officer  name 

bono 

boarding  text 

bohis 

bosum 

bovslsum 

frqchart 

violsum 

vslmo 

7 

boarding  report  number 

boolean 

rules  text 

4 

boolean  conjunction  used  in  edit  rule 

boopfac 

boarding  text 
bosum 

boarding  text 

bohis 

bosum 

5 

boarding  unit  operating  facility  code 

borate 

5 

boarding  officer  rank/rate 

boreml 

boarding  text 

bohis 

bosum 

70 

boarding  officer  remarks 

borem2 

boarding  text 

bohis 

bosum 

70 

boarding  officer  remarks 

boremS 

boarding  text 

bohis 

bosum 

70 

boarding  officer  remarks 

botime 

boarding  time 
bohis 
bosum 
bosum 

time  of  boarding 

bounit 

boarding  text 
bosum 

boarding  text 

bohis 

bosum 

bovslsum 

violsum 

25 

boarding  officer  unit 

bovhin 

12 

vessel  hull  identification  number 

bsunrise 

boarding  time 
bosum 

time  of  sunrise 

bsunset 

boarding  time 
bosum 

time  of  sunset 
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AttName 


cbcolor 


ceiling 

child^fd 

clouds 

clrdesc 

cmedecal 


cmeyear 


colnamel 

colname2 

consdesc 

constdes 

constype 

counter 

coursede 

coursetp 

day abb r 

descprop 

distdesc 

distno 

dkcolor 


dvmdate 

dvmoored 

ecnumber 

ecompdes 

ecomptyp 

ecpct 

engdesc 


RelName  Type  Len  Attribute  Description 


opvsls2  text  3 

ovmvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

sar  integer 

sarsum 

boarding  integer 
bosum 

sar  integer 

sarsum 

colors  text  20 

bovslsum  text  1 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

bovslsum  text  4 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

rules  text  8 

rules  text  8 

constr  text  10 

summary3  text  10 

constr  text  1 

summaryl  integer 
courses  text  15 

courses  text  1 

days  text  3 

summary6  text  15 

district  text  35 

district  text  2 

opvsls2  text  3 

ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2  ■ 
wvsljoin 
sartimeS  date 
sarunits - 
sartimeS  time 
sarunits 

epictmp  integer 

engcomp  text  10 

engcomp  text  1 

epictmp  real 

summary4  text  10 


vessel  cabin  color 


on  scene  ceiling  in  feet 

number  of  child  pfd's  on  board 

on  scene  cloud  coverage  in  tenths 

colgr  abbreviation  description 
y  or  n  for  erne  decal  displayed 


year  of  erne  decal  displayed 


column  name  used  in  editting  rule 

column  used  in  editting  rule 

vessel  construction  code  description 

vessel  construction  code  description 

vessel  construction  code 

vessel  type  counter 

course  description 

course  type  code 

day  abbreviation 

vessel  propulsion  description 

district  number  description 

district  number  code 

vessel  deck  color 


date  distressed  vessel  moored 

time  distressed  vessel  moored 

count  of  total  epic  codes 
vessel  engine  compartment  description 
vessel  engine  compartment  code 
individual  epic  code  percentage 
vessel  engine  compartment  description 
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Attribute  Description 


AttName  RelName  Type  Len 


eplccode  eplcsum  text 
eplctmpl 
vslint 
vs  lintel 


eplcdscl  epic  text 
eplctmp 
eplctmp2 

epicdsc2  epic  text 
eplctmp 
eplctmp2 

eplcdsc3  epic  text 
eplctmp 
eplctmp2 

eplcdsc4  epic  text 
eplctmp 
eplctmp2 

eplcno  epic  text 
eplctmp 
eplctmp2 

etadate  sarunlts  date 
fcompdes  fuelcomp  text 
fcomptyp  fuelcomp  text 
fdata  forms  text 
fname  forms  text 
folderno  sar  text 
sarhls 


1 


70 


70 


70 


1. 


1 


10 

1 

30 

a 

7 


sarsum 

sarsuml 

foldno  sartlmel  text  7 

sartlme2 
sartlme3 
sartlme4 
sartlmeS 
sarunlts 

freqcnt  posltfrq  Integer 
posltfrg 

fueldesc  summaryS  text  10 

grldpct  '  posltfrq  real 
posltfrq 

hlcolor  opvsls2  text  3 

ovmvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 

hmatdesc  hullmat  text  15 

hmattype  hullmat  text  1 

homeport  opvsls2  text  25 

ownvsls2 
pvsljoin 
vessel 
vslsum 
■  vslsuml 
vslsum2 
wvsljoin 

hulldesc  summary6  text  15 

Idoper  opvsl  integer 

opvslsl 
opvsls2 
pvsljoin 
vslsopr 


epic  code 


description  of  epic  code 


epic  code  description 


epic  code  description 


epic  code  description 


epic  code  number 


date  of  estimated  arrival 

vessel  fuel  compartment  description 

vessel  fuel  compartment  code 

forms  data 

form  name 

sar  folder  number 


sar  folder  number 


major  grid  counter 

vessel  fuel  compartment  description 
major  grid  percentage 

vessel  hull  color 


vessel  hull  material  description 
vessel  hull  material  code 
vessel  homeport 


vessel  hull  material  description 
operator  identification  number  (system) 


AttName  RelNarne  Type  Len 


Idowner 


Ipimedsar 


intdate 


intdob 


intmi 


length 

majeast 


mlneast 


m invest 


numprop 

numrule 


numuse 


ownvslsl 

ownvslsZ 

owvsl 

vslsown 

wsljoin 

sar 

sarhis 


integer 


text  1 


sarsum 

sarsum 


intfname 


intlname 


intvdate 

intvname 


epicsum 

epictmpl 

stolesum 

vslint 

vslintel 

perint 

perintel 

persum 

perint 

perintel 

persum 

perint 

perintel 

persum 

perint 

perintel 

persum 

intelsum 


epicsum 

intelsum 


stolesum 

vslint 

vslintel 

datadict 


majgrid 
maj north 
maj south 
majwest 


mingrid 

minnorth 


minsouth 


ma^area 

positfrq 

maj area 

positfrq 

majarea 

positfrq 

majarea 

positfrq 

majarea 

positfrq 

minarea 

positfrq 

minarea 

positfrq 

minarea 

positfrq 

minarea 

positfrq 

minarea 

positfrq 

sar 

sarhis 


numconst 

numeng 

numfuel 

numhull 


sarsum 

summaryS 

summary4 

summaryS 

summaryS 

summary? 

rules 

summary2 


integer 

integer 

integer 

integer 

integer 

integer 

integer 


Attribute  Description 
owner  identification  number  (system) 


y  or  n  vessel  in  immediate  danger 


date  intelligence  received/entered 


date  of  birth  of  person 


first  name  of  person 


last  name  of  person 


middle  initial  of  person 


date  intelligence  received/entered 
vessel  name 


data  dictionary  attribute  length 
eastern  bound  of  major  grid 


designation  of  major  grid  area 
northern  bound  of  major  grid 
southern  bound  of  major  grid  . 
western  bound  of  major  area 
eastern  bound  of  minor  grid 
designation  of  minor  grid  area 
northern  bound  of  minor  grid 
southern  bound  of  minor  grid 
western  bound  of  minor  grid 


multi-unit  case  number 


vessel 

vessel 

vessel 

vessel 

vessel 

number 

vessel 


construction  counter 
engine  compartment  counter 
fuel  compartment  counter 
hull  material  counter 
propulsion  counter 
of  input  editting  rule 
use  counter 
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AttName 

obsbody 

obsclty 

obscount 

obslat 

obslong 

obsstate 

offshore 

opaddr 

opcity 

opcourse 

opdob 

opfname 

opid 

oplname 

opmi 

opno 


RelName 


boarding 

bosum 

boarding 

bosum 

boarding 

bosum 

boarding 

bohls 

bosum 

boarding 

bohls 

bosum 

boarding 

bosum 

sar 

sarhls 

sarsum 

operator 

opervsls 

opsuml 

opsumZ 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

opown 


Type 

Len 

Attribute  Description 

text 

is" 

body  of  water  that  boarding  occurred 

text 

13 

city  that  boarding  occurred 

text 

15 

county  that  boarding  occurred 

real 

2.3 

latitude  where  boarding  occurred 

real 

3.3 

longitude  where  boarding  occurred 

text 

integer 

2 

coded  state  abbrev  that  boarding  occurs 

distance  in  nm  offshore 

text 

25 

operator  street  address 

text 

13 

operator  city  address 

text 

1 

coded  operator  courses 

date 

operator  date  of  birth 

text 

15 

operator  first  name 

integer 

operator  identification  number 

(system) 

text 

20 

operator,  last  name 

text 

1 

operator  middle  initial 

integer 

operator  identification  number 

(system) 
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AttName  RelName  Type  Len  Attribute  Description 


opstate 


optelno 


opzip 


osdate 


oseta 

ostatdes 

ostattyp 

ostime 


ownaddr 


owncity 


owndob 


ownfname 


ownid 


ownlname 


operator  text  2 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator  text  12 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator  text  9 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

sartimel  date 

sartime4 

sarunlts 

sarunits  time 

status  text  30 

status  text  1 

sartimel  time 

sartime4 

sarunits 

owners  text  25 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls2 

owners  text  18 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls2 

owners  date 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls2 

owners  text  15 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls 2 

owners  integer 

ownsuml 

ownsum2 

ownvslsl 

ownvsls2 

owners  text  20 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls2 


coded  operator  state  abbrev. 


operator  telephone  number  . 


operator  zip  code  address 


date  on-scene 


on  scene  eta  of  sar  unit 
owner  status  description 
owner  status  code 
on  scene  time  of  sar  unit 


owner  street  address 


owner  city  address 


owner  date  of  birth 


owner  first  name 


owner  identification  number  (system) 


owner  last  name 
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AttName  RelName  Type  Len  Attribute  Description 


ownml  owners  text  1  owner  middle  initial 

ownsuml 
ownsum2 
ownvsls 
ownvslsl 
ownvsls2 

ownno  opown  integer  owner  identification  number  (system) 

ownstate  owners  text  2  coded  owner  state  abbreviation  address 

ownsuml 
ownsum2 
ownvsls 
ownvslsl 
ownvsls2 

owntelno  owners  text  12  owner  telephone  number 

ownsuml 
ownsum2 
ownvsls 
ownvslsl 
ownvsls2 

ownzip  owners  text  9  owner  zip  code  address 

ownsuml 
ownsum2 
ownvsls 
ownvslsl 
ownvsls2 

owstatus  boarding  text  1  coded  owner  status  at  time  of  boarding 

bostim 

pctincr  sarstat  real  percentage  increase  in  sar  cases 

pintdate  perint  date  date  intelligence  received/entered 

per  Intel 
persum 

pintreml  perint  text  70  intelligence  remarks  on  person 

perintel 
.  persum 

pintrem2  perint  text  70  intelligence  remarks  on  person 

perintel 
persum 

pintrem3  perint  text  70  intelligence  remarks  on  person 

perintel 
persum 

propdesc  boatprop  text  15  vessel  propulsion  description 

proptype  boatprop  text  1  vessel  propulsion  code 

rdata  reports  text  132  report  data 

registry  nations  text  30  nation  description 

relname  datadict  text  8  data  dictionary  relation  name 

rname  reports  text  ,3  report  name 

rulvalue  rules  text  40  edit  error  message 

sailno  opvsls2  text  8  sail  number  of  vessel 

ownvsls  2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 

sardate  sar  date  date  of  sar 

sarhis 
sarsum 
sarsuml 

sarday  sar  text  3  sar  day  of  week  abbreviated 

sarsum 
sarsuml 

sarlat  sar  real  2.3  latitude  position  of  sar 

sarhis 
sarsum 


AttName 

RelName 

Type 

Len 

sarlong 

sar 

sarhis 

sarsum 

real 

3.3 

sarnod 

sar 

sarhis 

sarsum 

text 

25 

sarnum 

sarstat 

integer 

sarpob 

sar 

sarhis 

sarsum 

integer 

sartime 

sar 

sarhis 

sarsum 

time 

sarvhin 

sar 

sarhis 

sarsiim 

text 

12 

saryear 

sarstat 

text 

4 

seas 

sar 

sarsum 

integer 

shade 

colors 

text 

3 

slcolor 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

text 

3 

source 

dataaict 

text 

15 

ssunrise 

sar 

sarsum 

time 

ssunset 

sar 

sarsum 

•time 

stolen 

epicsum 

stolesum 

vslint 

vslintel 

text 

1 

sutdate 

sartime2 

sarunits 

date 

sutmoor 

sartime2 

sarunits 

time 

swells 

sar 

sarsum 

integer 

symbol 

nations 

text 

2 

tablel 

rules 

text 

8 

table2 

rules 

text 

8 

tmp 

temp 

text 

2 

towdate 

sar times 
sarunits 

date 

towtime 

sartimeS 

sarunits 

time 

trcolor 

.  opvsls2 
ownvsls2 
pvsljoin 
vessel 

text 

3 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

type  dataaict  text  7 

typedesc  summaryl  text  15 

ucn  sar  text  8 

sarhis 
sarsum 


Attribute  Description 


longitude  position  of  sar 


sar  nature  of  distress 


number  of  sar  cases 
number  of  personnel  onboard 


time  sar  report  received 


vessel  hull  identification  number 


year  of  sar  case 

on  scene  sea  height  in  feet 

color  abbreviation 
vessel  sail  color 


source  document 
time  of  sunrise 

time  of  sunset 

y  or  n  for  vessel  stolen 


date  sar  unit  moored/  returned 

time  sar  unit  moored 

on  scene  swell  height  in  feet 

nation  abbreviation 
table  used  in  editting  rule 
table  used  in  editting  rule 
attribute/relation  for  report  printing 
date  distressed  vessel  in  tow 

time  distressed  vessel  in  tow 

vessel  trim  color 


data  dictionary  attribute  type 
vessel  type  description 
unit  case  number 


AttName 

unitname 

uns69 

uns70 

uns71 

uns72 

uns73 

uns74 

uns75 

uns76 

uns77 

uns78 

uns79 

usedesc 

uwdate 

uwtlme 


RelName  Type  Len  Attribute  Description 


sarunlts  text 

boarding  text 

bohls 

bosum 

frqchart 

vlolsum 

boarding  text 

bohls 

bosum 

frqchart 

vlolsum 

boarding  text 

bohls 

bosum 

frqchart 

boarding  text 

bohls 

bosum 

frqchart 

vlolsum 

boarding  text 

bohls 

bosum 

frqchart 

vlolsum 

boarding  text 

bohls 

bosum 

frqchart 

vlolsum 

boarding  text 

bohls 

bosum 

frqchart 

vlolsum 

boarding  text 

bohls 

bosum 

frqchart 

vlolsum 

boarding  text 

bohls 

bosum 

frqchart 

vlolsum 

boarding  text 

bohls 

bosum 

frqchart 

vlolsum 

boarding  text 

bohls 

bosum 

frqchart 

vlolsum 

summary2  text 

sartimel  date 

sartlme2 

sartlme3 

sarunlts 

sartimel  time 

sartlme2 

sartlme3 

sarunlts 


25  sar  unit  name 

1  'X'  If  vessel  terminated 

1  'X'  If  condition  corrected  on  the  spot 

1  'X*  If  vessel  overloaded 

1  'X'  if  fuel  in  bilges 

'  1  'X'  if  fuel  leak 

1  'X'  if  manifestly  unsafe  voyage 


1  'X'  If  hazardous  bars  (13th  district) 


1  'X'  If  operator  alcohol  condition 


1  'X'  If  other  unsafe  condition 


.1  'X'  if  warning  issued 


1  'X'  if  no  violations 


15  vessel  use  description 
sar  unit  underway  date 


underway  time  of  sar  unit 
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AttName 

RelName 

Type 

Len 

Attribute  Description 

vardesc 

vardict 

text 

25 

attribute  represented  or  how  used 

varname 

vardlct 

text 

8 

name  of  variable 

vartype 

vardict 

text 

8 

type  of  variable 

where  the  variable  is  used 

varus el 

vardict 

text 

12 

vhinoper 

opvsl 

opvslsl 

opvsls2 

pvsljoin 

vslsopr 

text 

12 

vessel  hull  identification 

vhinown 

ownvslsl 
ownvsls2 
owvsl 
vs Is own 
wvslioin 

text 

12 

vessel  hull  identification  number 

viol54 

boarding 

bohis 

bosum 

frqchart 

violsum 

text 

1 

'X'  if  numbering  violation 

viol55 

boarding 

bohis 

bosum 

frqchart 

violsum 

text 

1 

'X'  if  certificate  violation 

violS6 

boarding 

bohis 

bosum 

frqchart 

violsum 

text 

1 

'X'  if  pfd  violation 

viol57 

boarding 

bohis 

bosum 

frqchart 

violsum 

text 

1 

'X'  if  sound  producing  device  violation 

vioisa 

boarding 

bohis 

bosum 

frqchart 

violsum 

text 

1 

'X'  if  bell  violation 

viol59 

boarding 

bohis 

bosum 

frqchart 

violsum 

text 

1 

'X'  if  fire  extinguisher  violation 

viol60 

boarding 

bohis 

bosum 

frqchart 

violsum 

text 

1 

'X'  if  flame  control  violation 

vioiei 

boarding 

bohis 

bosum 

frqchart 

violsum 

text 

1 

'X'  if  ventilation  violation 

viol62 

boarding 

bohis 

bosum 

frqchart 

violsum 

text 

1 

'X'  if  navigation/anchor  Its.  violation 

viol63 

boarding 

bohis 

bosum 

frqchart 

violsum 

text 

1 

'X'  if  negligent  operation  violation 
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AttName  RelName  Type  Len 


Attribute  Description 


viol64 


viol65 


viol66 


viol67 


viol68 


boarding 

bohis 

bosum 

frgchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis  . 

bosum 

frqchart 

violsum 


text  1 


text  1 


text  1 


text 


text 


violdesc 

viols 

text 

40 

violno 

viols 

text 

2 

visdist 

sar 

sarsum 

integer 

vremarkl 

intelsum 

vslint 

vslintel 

text 

70 

vremark2 

intelsum 

vslint 

vslintel 

text 

70 

vremarkS 

intelsum 

vslint 

vslintel 

text 

70 

vslcall 

opvsls2 

text 

12 

vslconst 


pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvslioin 

opvslsZ 

ownvsls2 

pvsljoin 

summary3 

vessel 

violsum 

vslmo 

vslsum 

vslsuml 

vslsum2 

wvsljoin 


text 


'X'  if  failure  to  terminate  violation 

'X'  if  pollution  placard  not  posted 

'X'  if  marine  sanitation  device  violtn. 

•X'  if  visual  distress  signal  violation 

'X'  if  document/official  no.  violation 

violation  description 
violation  number 
visibility  distance 

vessel  intelligence  remarks 
vessel  intelligence  remarks 
vessel  intelligence  remarks 
vessel  call  sigrt 


coded  vessel  construction  type 


-ir PW  m  w.rrwn  *.n  »-n  mn 


AttNane  RelName  Type  Len 


vsleng 


vslfuel 


vslhin 


vslhp 


vslhull 


vsllenft 


opvsls2  text 
ownvsls2 
pvsljoin 
svtiranary4 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsls2  text 
ownvsls2 
pvsljoin 
summaryS 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
bovslsum  text 
opervsls 
opvsls2 
ownvsls 
ownvsls2 
pvsljoin 
vessel 
viPlsum 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsls2  text 
ownvsls 2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsls2  text 
ownvsls2 
pvsljoin 
summary6 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsls2  integer 
ownvsls2 
pvsljoin 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsumZ 
wvsljoin 


Attribute  Description 
coded  vessel  engine  compartment  type 


coded  vessel  fuel  compartment  type 


vessel  hull  identification  number 


vessel  horsepower 


coded  vessel  hull  material 


vessel  length  in  feet 


AttName  RelName  Type  Len 


Attribute  Description 


vsllenin  opvsls2  Integer 
ovmvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsuni2 
wvslioin 

vslmake  opvsls2  text  10 

ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 

vslmarks  opvsls2  text  40 

ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsumZ 
wvsljoin 

vslmasts  opvsls2  text  1 

ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 

vslmodel  opvsls2  text  10 

ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 

vslname  opervsls  text  17 

opvsls2 
ownvsls 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 

vslno  opvsls2  text  8 

ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 

vsloffno  opvsls2  text  10 

ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 


vessel  length  inches 


vessel  make 


vessel  unusual  markings 


number  of  masts  on  vessel 


vessel  model 


vessel  name 


vessel  number 


vessel  official  number  (main  beam  no.) 
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AttName 

vslpob 


RelName  Type  Leri 


vslprop 


vsltons 


vsltype 


vsluse 


Attribute  Description 
number  of  personnel  on  board  vessel 


coded  vessel  propulsion  method 


vslsuper 


integer 


vessel  net  tonnage 


vslvalue 


boarding  integer 
bohis 
bosum 

opvsls2  text 
ownvsls2 
pvsljoin 
summary6 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsuni2 
wvsljoin 

opvsls2  text  12  vessel  superstructure 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsls2 
ownvsls2 
pvsljoin 
vessel 
violsum 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsls2 
ownvsls2 
pvsljoin 
summaryl 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsls2 
ownvsls2 
pvsljoin 
summary2 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsls2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 


text 


coded  vessel  type 


text 


coded  vessel  use 


dollar 


vessel  value 
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AttName  RelName  Type  Len 


vslyear  opvsls2  text  4 
ownvsls2 
pvsljoin 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin 

vtype  boattype  text  2 
vtypedes  boattype  text  15 
vuse  boatuse  text  2 
vusedesc  boatuse  text  15 
weapons  boarding  integer 
bohis 
bosum 
violsum 

winddir  sar  integer 
sarsum 

windspd  sar  integer 

sarsum 


Attribute  Description 


vessel  model  year 


vessel  type  code 
vessel  type  description 
vessel  use  code 
vessel  use  description 
number  of  weapons  on  board 


wind  direction 
wind  speed 


I 


Database  Attributes  Sorted  by  Input  Source 


Source 

4100 


AttName 

RelName 

Type 

Len 

adultpfd 

boarding 

Integer 

bodate 

boarding 

date 

boday 

boarding 

text 

3 

bodist 

boarding 

text 

2 

boname 

boarding 

text 

25 

bono 

boarding 

text 

7 

boopfac 

boarding 

text 

5 

borate 

boarding 

text 

5 

boreml 

boarding 

text 

70 

borem2 

boarding 

text 

70 

boremS 

boarding 

text 

70 

botime 

boarding 

time 

bounit 

boarding 

text 

25 

bovhin 

boarding 

text 

12 

bsunrise 

boarding 

time 

bsunset 

boarding 

time 

childpfd 

boarding 

integer 

cmedecal 

veasel 

text 

1 

cmeyear 

vesael 

text 

4  . 

obsoody 

boarding 

text 

15 

obscity 

boarding 

text 

13 

obscount 

boarding 

text 

15 

obslat 

boarding 

real 

2.3 

ob along 

boarding 

real 

3.3 

obsstate 

boarding 

text 

2 

opaddr 

operator 

text 

25 

opcity 

operator 

text 

18 

opcourse 

operator 

text 

1 

opdob 

operator 

date . 

op f name 

operator 

text 

15 

oplname 

operator 

text 

20 

opmi 

operator 

text 

1 

opatate 

operator 

text 

2 

optelno 

operator 

text 

12 

opzip 

operator 

text 

9 

ownaddr 

owners 

text 

•  25 

owncity 

owners 

text 

18 

owndob 

owners 

date 

ownfname 

owners 

text 

15 

ownlname 

owners 

text 

20 

ownmi 

owners 

text 

1 

ownstate 

owners 

text 

2 

owntelno 

owners 

text 

12 

ownzip 

owners 

text 

9 

owatatua 

boarding 

text 

1 

uns69 

boarding 

text 

1 

unaTO 

boarding 

text 

1 

una71 

boarding 

text 

1 

un872 

boarding 

text 

1 

una73 

boarding 

text 

1 

un374 

boarding 

text 

1 

uns75 

boarding 

text 

1 

un376 

boarding 

text 

1 

uns77 

boarding 

text 

1 

uns78 

boarding 

text 

1 

un379 

boarding 

text 

1 

vhinoper 

opvsl 

text 

12 

vhinown 

owvsl 

text 

12 

viol54 

boarding 

text 

1 

viol55 

boarding 

text 

1 

viol56 

boarding 

text 

1 

viol57 

boarding 

text 

1 

violSS 

boarding 

text 

1 

viol59 

boarding 

text 

1 

vioieo 

boarding 

text 

1 
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AttName 

RelName 

Type 

Len 

vlolSl 

boarding 

text 

1 

viol62 

boarding 

text 

1 

viol63 

boarding 

text 

1 

vlol64 

boarding 

text 

1 

viol65 

boarding 

text 

1 

viol66 

boarding 

text 

1 

viol67 

boarding 

text 

1 

viol68 

boarding 

text 

1 

vslconst 

vessel 

text 

1 

vslencr 

vessel 

text 

1 

vslfuel 

vessel 

text 

1 

vslhin 

vessel 

text 

12 

vslhp 

vessel 

text 

3 

vslhull 

vessel 

text 

1 

vsllenft 

vessel 

integer 

vsllenin 

vessel 

integer 

vslmake 

vessel 

text 

10 

vslmodel 

vessel 

text 

10 

vslname 

vessel 

text 

17 

vslno 

vessel 

text 

8 

vslpob 

boarding 

integer 

vs Ip r op 

vessel 

text 

1 

vsltons 

vessel 

integer 

vsltype 

vessel 

text 

2 

vsluse 

vessel 

text 

2 

vslyear 

vessel 

text 

4 

weapons 

boarding 

integer 

abb rev 

states 

text 

2 

and/or 

rules 

text 

4 

attdesc 

datadict 

text 

40 

attname 

datadict 

text 

8 

boolean 

rules 

text 

4 

clrdesc 

colors 

text 

20 

colnamel 

rules 

text 

8 

colnaffle2 

rules 

text 

8 

consdesc 

constr 

text 

10 

cons type 

constr 

text 

1 

coursede 

courses 

text 

15 

coursetp 

courses 

text 

1 

day abb r 

days 

text 

3 

dlstdesc 

district 

text 

35 

dlstno 

district 

text 

2 

ecompdes 

engcomp 

text 

10 

ecomptyp 

epicdscl 

engcomp 

epic 

text 

text 

1 

70 

epicdscZ 

epic 

text 

70 

epicdsc3 

epic 

■text 

70 

epicdsc4 

epic 

text 

70 

»icno 

fcompdes 

«ic 

fuelcomp 

text 

text 

1 

10 

fcomptyp 

fuelcomp 

text 

1 

fdata 

forms 

text 

80 

fname 

forms 

text 

8 

hmatdesc 

hullmat 

text 

15 

hmattype 

hullmat 

text 

1 

length 

datadict 

text 

3 

majeast 

majarea 

real 

maigrid 

ma^area 

text 

2 

maj north 

ma:]area 

real 

ma^ south 

maqarea 

real 

majwest 

majarea 

real 

mineast 

minarea 

real 

mlngrid 

minarea 

text 

2 

m innorth 

minarea 

real 

minsouth 

minarea 

real 

Source 

designer 


numerous 


ood 

sar  fold 


AttName 

RelName 

Type 

Len 

minwest 

minarea 

real 

numrule 

rules 

integer 

ostatdes 

status 

text 

30 

ostattyp 

status 

text 

1 

propdesc 

boatprop 

text 

15 

proptype 

rdaca 

boatprop 

reports 

text 

text 

1 

132 

registry 

relname 

nations 

text 

30 

datadict 

text 

3 

rname 

reports 

text 

8 

rulvalue 

rules 

text 

40 

shade 

colors 

text 

3 

source 

datadict 

text 

15 

symbol 

nations 

text 

2 

tablel 

rules 

text 

3 

table2 

rules 

text 

3 

type 

datadict 

text 

7 

vardesc 

vardict 

text 

25 

varname 

vardict 

text 

8 

vartype 

vardict 

text 

8 

varusel 

vardict 

text 

12 

violdesc 

viols 

text 

40 

violno 

viols 

text 

2 

vtype 

boattype 

text 

2 

vtypedes 

boattype 

text 

15 

vuse 

boatuse 

text 

2 

vusedesc 

boatuse 

text 

15 

epiccode 

vslintel 

text 

1 

intdate 

vslintel 

date 

intdob 

perintel 

date 

intfname 

perintel 

perintel 

text 

15 

intlname 

text 

20 

intmi 

perintel 

text 

1 

intvname 

vslintel 

text 

17 

pintdate 

perintel 

date 

70 

pintreml 

perintel 

text 

plntrem2 

perintel 

text 

70 

pintremS 

perintel 

text 

70 

stolen 

vslintel 

text 

1 

vremarkl 

vslintel 

text 

70 

vremark2 

vslintel 

text 

70 

vremark3 

vslintel 

text 

70 

ssunrise 

sar 

time 

ssunset 

sar 

time 

alngdate 

sarunits 

date 

alngtime 

sarunits 

time 

cbcolor 

vessel 

text 

3 

ceiling 

sar 

■integer 

clouds 

sar 

integer 

dkcolor 

vessel 

text 

3 

dvmdate 

sarunits 

date 

dvmoored 

sarunits 

time 

etadate 

sarunits 

date 

folderno 

sar 

text 

7 

foldno 

sarunits 

text 

7 

hlcolor 

vessel 

text 

3 

homeport 

vessel 

text 

25 

immedsar 

sar 

text 

1 

mucn 

sar 

text 

8 

offshore 

sar 

integer 

osdate 

sarunits 

date 

oseta 

sarunits 

time 

ostime 

sarunits 

time 

sailno 

vessel 

text 

3 

sardate 

sar 

date 
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Source 


ear  fold 


system 


AttName 

RelName 

Type 

Len 

sarday 

sar 

text 

3 

sarlat 

sar 

real 

2.3 

sarlong 

sar 

real 

3.3 

sarnod 

sar 

text 

25 

sarpob 

sar 

integer 

sartlme 

sar 

tine 

sarvhin 

sar 

text 

12 

seas 

sar 

integer 

slcolor 

vessel 

text 

3 

sutdate 

sarunits 

date 

sutmoor 

sarunits 

time 

swells 

sar 

integer 

towdate 

sarunits 

date 

towtime 

sarunits 

time 

trcolor. 

vessel 

text 

3 

ucn 

sar 

text 

3 

unitname 

sarunits 

text 

25 

uwdate 

sarunits 

date 

uwtime 

sarunits 

time 

visdist 

sar 

integer 

vslcall 

vessel 

text 

12 

vslmarks 

vessel 

text 

40 

vslmasts 

vessel 

text 

1 

vsloffno 

vessel 

text 

10 

vslsuper 

vessel 

text 

12 

vs lvalue 

vessel 

dollar 

winddir 

sar 

integer 

windspd 

sar 

integer 

idoper 

opvsl 

integer 

idowner 

owvsl 

integer 

op  id 

operator 

integer 

opno 

op  own 

integer 

ownid 

owners 

integer 

ownno 

opown 

integer 

B. 


Database  Attributes  Sorted  by  Where  Used 


Used  In 

AttName 

RelName 

Type 

Len 

boarding 

adultpfd 

bodate 

bosum 

bosum 

integer 

date 

boday 

bosum 

text 

3 

bodist 

bosum 

text 

2 

boname 

bosum 

text 

25 

bono 

bosum 

text 

7 

boopfac 

bosum 

text 

5 

borate 

bosum 

text 

5 

boreml 

bosum 

text 

70 

borem2 

bosum 

text 

70 

borem3 

botime 

bosum 

bosum 

text 

text 

70 

bounit 

bosum 

text 

25 

bovhin 

bsunrise 

bsunset 

childpfd 

bosum 

bosum 

bosum 

bosum 

text 

time 

time 

integer 

12 

obsbody 

bosum 

text 

15 

obscity 

bosum 

text 

13 

obs count 

bosiim 

text 

15 

obslat 

bosum 

real 

2.3 

obs long 

bosum 

real 

3.3 

obsstate 

bosum 

text 

2 

owstatus 

bosum 

text 

1 

uns69 

bosum 

text 

1 

uns70 

bosum 

text 

1 

uns72 

bosum 

text 

1 

uns73 

bos’om 

text 

1 

uns74 

bosum 

text 

1 

uns75 

bosum 

text 

1 

uns76 

bosum 

text 

1 

uns77 

bosum 

text 

1 

uns78 

bosum 

text. 

1 

uns79 

bosum 

text 

1 

viol54 

bosum 

text 

1 

viol55 

bosum 

text 

1 

vioise 

bosum 

text 

1 

viol57 

bosum 

text 

1 

viol58 

bosum 

text 

1 

viol59 

bosum 

text 

1 

viol60 

bosum 

text 

1 

yiol61 

bosum 

text 

1 

viol62 

bosum 

text 

1 

viol63 

bosum 

text 

1 

viol64 

bosum 

text 

1 

viol65 

bosum 

text 

1 

viol66 

bosum 

text 

1 

viol67 

bosum 

text 

1 

bomajor 

viol68 

vslpob 

weapons 

bosum 

bosum 

bosum 

text 

integer 

integer 

1 

bono 

freqcnt 

gridpct 

bosum 

positfrq 

positfrq 

text 

integer 

real 

7 

majeast 

positfrq 

real 

3.3 

ma^grid 

positfrq 

text 

2 

ma] north 

positfrq 

real 

2.3 

ma^ south 

positfrq 

real 

2.3 

ma]west 

obslat 

positfrq 

bosum 

real 

real 

3.3 

2.3 

obs long 

bosum 

real 

3.3 

bomlnor 

bono 

freqcnt 

gridpct 

bosum 

positfrq 

positfrq 

text 

integer 

real 

7 

mine as t 

positfrq 

real 

3.3 
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Ustd  In 
bomlnor 

cmerpt 

daynight 

apicdump 


iitunedsar 

intelrpt 


mingrld 

mlnnorth 

mlnsouth 

mlnwest 

obslat 

obslong 

bono 

bono 

bovhin 

bovhin 

cmedecal 

cmedecal 

cmeyear 

cmeyear 

tmp 

vsihin 

vslhin 

bodate 

botime 

bsunrise 

bsunset 

sardate 

sartime 

ssunrise 

s sunset 

tmp 

ecnumber 

ecpct 

epiccode 

epiccode 

epicdscl 

epicdscl 

epicdsc2 

epicdsc2 

epicdsc3 

epicdsc3 

epicdsc4 

epicdsc4 

epicno 

epicno 

intdate 

intdate 

intdate 

intvdate 

intvname 

intvname 

intvname 

stolen 

stolen 

vreraarkl 

vremark2 

vreraark3 

folderno 

immedsar 

sardate 

tmp 

bodate 

bodate 

bono 

bono 

bono 

bovhin 

bovhin 

constdes 

counter 


posltfrq 

positfrg 

positfrg 

posltfrq 

bosum 

bosum 

bosum 

bovslsum 

bosum 

bovslsum 

bovslsum 

vslsum 

bovslsum 

vslsum 

temp 

bovslsum 

vslsum 

bosum 

bosum 

bosum 

bosum 

sarsum 

sarsum 

sarsum 

sarsum 

temp 

epic tmp 

epic tmp 

epicsum 

epictmpl 

epic tmp 

epictmp2 

epic tmp 

epictmp2 

epic tmp 

epictmp2. 

epic tmp 

epictmp2 

epic tmp 

epictmp2 

epicsum 

epictmpl 

stolesum 

intelsum 

epicsum 

intelsum 

stolesum 

epicsum 

stolesum 

intelsum 

intelsum 

intelsum 

sarsum 

sarsum 

sarsum 

temp 

bosum 

violsum 

bosum 

violsum 

vslmo 

bosum 

violsum 

summary3 

summaryl 


-!??!„ 

text 

real 

real 

real 

real 

real 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

date 

time 

time 

time 

date 

time 

time 

time 

text 

integer 

real 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

date 

date 

date 

date 

text 

text 

text 

text 

text 

text 

text 

text 

text 

real 

date 

text 

date 

date 

text 

text 

text 

text 

text 

text 

integer 
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AttName 

RelName 

Type 

Len 

descprop 

sunimary6 

text 

15 

engdesc 

suinmary4 

text 

10 

fueldesc 

summaryS 

text 

10 

hulldesc 

numconst 

numeng 

numfuel 

numhull 

numprop 

numuse 

summaryG 

sununaryS 

summary4 

summaryS 

summaryS 

summary? 

summary2 

text 

integer 

integer 

integer 

integer 

integer 

integer 

15 

tmp 

temp 

text 

2 

t^edesc 

summaryl 

text 

15 

uns69 

bosum 

text 

1 

uns69 

violsum 

text 

1 

uns70 

bosum 

text 

1 

uns70 

violsum 

text 

1 

uns71 

bosum 

text 

1 

uns72 

bosum 

text 

1 

uns72 

violsum 

text 

1 

uns73 

bosum 

text 

1 

uns73 

violsum 

text 

1 

uns74 

bosum 

text 

1 

uns74 

violsum 

text 

1 

uns75 

bosum 

text 

1 

uns75' 

violsum 

text 

1  ■ 

uns76 

bosum 

text 

1 

uns76 

violsum 

text 

1 

uns77 

bosum 

text 

1 

uns77 

violsum 

text 

1 

uns78 

bosum 

text 

1 

uns78 

violsum 

text 

1 

uns79 

bosum 

text 

1 

uns79 

violsum 

text 

1 

usedesc 

summary2 

text 

15 

viol54 

bosum 

text 

1 

viol54 

violsum 

text 

1 

violSS 

bosum 

text 

•  1 

violSS 

violsum 

text 

1 

viol56 

bosum 

text 

1 

viol56 

violsum 

text 

1 

viol57 

bosum 

text 

1 

viol57 

violsum 

text 

1 

viol58 

bosum 

text 

1 

viol58 

violsum 

text 

1 

viol59 

bosum 

text 

1 

viol59 

violsum 

text 

1 

viol60 

bosum 

text 

1 

viol60 

violsum 

text 

1 

violSl 

bosum 

text 

1 

vioiei 

violsum 

text 

1 

viol62 

bosum 

text 

1 

viol62 

violsum 

text 

1 

viol63 

bosum 

text 

1 

viol63 

violsum 

text 

1 

viol64 

bosum 

text 

1 

viol64 

violsum 

text 

1 

viol65 

bosum 

text 

1 

viol65 

violsum 

text 

1 

viol66 

bosum 

text 

1 

viol66 

violsum 

text 

1 

viol67 

bosum 

text 

1 

viol67 

violsum 

text 

1 

viol68 

bosum 

text 

1 

viol68 

violsum 

text 

1 

vs Icons t 

summaryS 

text 

2 

Uied  In 

AttName 

RelName 

Type 

Len 

Intelrpt 

vslconst 

violsum 

text 

1 

vslconst 

vslmo 

text 

1 

vslconst 

vslsum 

text 

1 

vsleng 

summ8ry4 

text 

1 

vsleng 

violsum 

text 

1 

vsleng 

vslmo 

text 

1 

vsleng 

vslsum 

text 

1 

vslfuel 

summaryS 

text 

1 

vslfuel 

violsum 

text 

1 

vslfuel 

vslmo 

text 

1 

vslfuel 

vslsum 

text 

1 

vslhin 

violsum 

text 

12 

vslhin 

vslsum 

text 

12 

vslhull 

summary6 

text 

1 

vslhull 

violsum 

text 

1 

vslhull 

vslmo 

text 

1 

vslhull 

vsllenft 

vsllenft 

vsllenft 

vslsum 

violsum 

vslmo 

vslsum 

text 

integer 

integer 

integer 

1 

vs Ip r op 

summary6 

text 

1 

vslprop 

violsum 

text 

1 

vslprop 

vslmo 

text 

1 

vslprop 
vs Icons 
vsltons 

vslsum 

violsum 

vslsum 

text 

integer 

integer 

1 

vsltype 

summaryl 

text 

2 

■  vsltype 

violsum 

text 

2 

vsltype 

vslmo 

text 

2 

vsltype 

vslsum 

text 

2 

vsluse 

summary2 

text 

2 

vsluse 

violsum 

text 

2 

vsluse 

vslmo 

text 

2 

vsluse 

vslsum 

text 

2 

vslyear 

violsum 

text 

4 

vslyear 

vslmo 

text 

4 

vslyear 

weapons 

weapons 

vslsum 

bosum 

violsum 

text 

integer 

integer 

4 

operator 

opaddr 

opsuml 

text 

25 

opaddr 

opsumZ 

text 

25 

opcity 

opsuml 

text 

18 

opcity 

opsum2 

text 

18 

opcourse 

opsuml 

text 

1 

opcourse 

opdob 

opdob 

opsum2 

opsuml 

opsum2 

text 

date 

date 

1 

op f name 

opsuml 

text 

15 

op f name 
op  id 
opid 

opsum2 

opsuml 

opsum2 

text 

integer 

integer 

15 

oplname 

opsuml 

text 

20 

oplname 

opsum2 

text 

20 

opmi 

opsuml 

text 

1 

opmi 

opsum2 

text 

1 

opstate 

opsuml 

text 

2 

opstate 

opsumZ 

text 

2 

optelno 

opsuml 

text 

12 

optelno 

opsumZ 

text 

12 

opzip 

opsuml 

text 

9 

opzip 

opsumZ 

text 

9 
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Let! 


cbcolor 

cmedecal 

cmeyear 

dkcolor 

hlcolor 

homeport 

idoper 

idoper 

opaddr 

opaddr 

opaddr 

opcity 

opcity 

opcity 

opcourse 

opcourse 

op  dob 

op  dob 

op  dob 

op f name 

op f name 

op f name 

opid 

opid 

oplname 

oplname 

oplname 

opmi 

opmi 

opmi 

opstate 

opstate 

opstate 

optelno 

optelno 

optelno 

op  zip 

opzip 

op  zip 

sailno 

slcolor 

trcolor  , 

vhinoper 

vhinoper 

vslcall 

vslconst 

vsleng 

vslfuel 

vslhin 

vslhin 

vslhp 

vslhull 

vsllenft 

vsllenin 

vslmake 

vslmarks 

vslmasts 

vslmodel 

vslname 

vslname 

vslno 

vsloffno 

vs Ip r op 

vslsuper 

vsltons 


opvsls2 

opvslsZ 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvslsl 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opervsls 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvslsZ 

opvsls2 

opvsls2 

opervsls 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 


text 

3 

text 

1 

text 

4 

text 

3 

text 

3 

text 

integer 

integer 

25 

text 

25 

text 

25 

text 

25 

text 

18 

text 

18 

text 

18 

text 

1 

text 

date 

date 

date 

1 

text 

15 

text 

15 

text 

integer 

integer 

15 

text 

20 

text 

20 

text 

20 

text 

■  1 

text 

1 

text 

1 

text 

2 

text 

2 

text 

2 

text 

12 

text 

12 

text 

12 

text 

9 

text 

9 

text 

9 

text 

8 

text 

3 

text 

3 

text 

12 

text 

12 

text 

12 

text 

1 

text 

1 

text 

1 

text 

12 

text 

12 

text 

3 

text 

integer 

integer 

1 

text 

10 

text 

40 

text 

1 

text 

10 

text 

17 

text 

17 

text 

8 

text 

10 

text 

1 

text 

integer 

12 
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opervsls  vsltype 

vsluse 
vs lvalue 
vslyear 

owners  ownaddr 

ownaddr 
owncity 
owncity 
owndob 
owndob 
ownfname 
ownfname 
ownid 
ownid 
ownlname 
ownlname 
ownmi 
ownmi 
ownstate 
ownstate 
owntelno 
owntelno 
ownzip 
ownzip 

ownervsl  cbcolor 

cmedecal 
cmeyear 
dkcolor 
hlcolor 
homeport 
idowner 
idowner 
ownaddr 
ownaddr 
ownaddr 
owncity 
owncity 
owncity 
owndob 
owndob 
owndob 
ownfname 
ownfname 
ownfname 
ownid 
ownid 
ownlname 
ownlname 
ownlname 
ownmi 
ownmi 
ownmi 
ownstate 
ownstate 
ownstate 
owntelno 
owntelno 
owntelno 
ownzip 
ownzip 
ownzip 
sailno 
slcolor 
trcolor 
vhinown 
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opv8ls2 

text 

opvsls2 

text 

opvsls2 

dollar 

opvsls2 

text 

ownsuml 

text 

ownsum2 

text 

ownsuml 

text 

ownsum2 

text 

ownsuml 

date 

ownsum2 

date 

ownsuml 

text 

ownsiM2 

text 

ownsuml 

integer 

ownsum2 

integer 

ownsuml 

text 

ownsum2 

text 

ownsuml 

text 

ownsum2 

text 

ownsuml 

text 

ownsum2 

text 

ownsuml 

text 

ownsum2 

text 

ownsuml 

text 

ownsum2 

text 

ownvsls2 

text 

ownvsls2 

text 

ownvsls2 

text 

ownvsls2 

text 

ownvsls2 

text 

ownvsls2 

text 

ownvslsl 

integer 

ownvsls2 

integer 

ownvsls 

text 

ownvslsl 

text 

ownvsls2 

text 

ownvsls 

text 

ownvslsl 

text 

ownvsls2 

text 

ownvsls 

date 

ownvslsl 

date 

ownvsls2 

date 

ownvsls 

text 

ownvslsl 

text 

ownvsls2 

text 

ownvslsl 

integer 

ownvsls2 

integer 

ownvsls 

text 

ownvslsl 

text 

ownvsls2 

text 

ownvsls 

text 

ownvslsl 

text 

ownvsls2 

text 

ownvsls 

text 

ownvslsl 

text 

ownvsls2 

text 

ownvsls 

text 

ownvslsl 

text 

ownvsls2 

text 

ownvsls 

text 

ownvslsl 

text 

ownvsls2 

text 

ownvsls2 

text 

ownvsls2 

text 

ownvsls2 

text 

ownvslsl 

text 
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perintel 


quer_per 


I 


intdob 

intfname 

intlname 

intml 

pintdate 

pintreml 

pintremZ 

pintremS 

bodate 

boname 

bono 

borate 

boreml 

borem2 

borem3 

botlme 

bovhin 

cbcolor 

cbcolor 

cmedecal 

cmedecal 

cmeyear 

cmeyear 

dkcolor 

dkcolor 

^iccode 

folderno 

hlcolor 

hlcolor 

homeport 

homeport 

idoper 

idoper 

idowner 

idowner 

immedsar 

intdate 

intdob 

intfname 


persum 

persum 

persum 

persum 

persum 

persum 

persum 

Eersum 
ohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
pvsljoin 
wvsl^oin 
pvsljoin 
wvsljoin 
pvsljoin 
wvslqoin 
pvslqoin 
wvsl3oin 
vslint 
sarhis 
pvsljoin 
wvsljoin 
pvsljoin 
wvsljoin 
pvsljoin 
vslsopr 
vslsown 
wvsljoin 
sarhis 
vslint 
perint 
perint 
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vhinown 

6wnvsls2 

text 

12 

vslcall 

ownvsls2 

text 

12 

vslconst 

ownvsls2 

text 

1 

vsleng 

ownvsls2 

text 

1 

vslfuel 

ownvsls2 

text 

1 

vslhin 

ownvsls 

text 

12 

vslhin 

ownvsls2 

text 

12 

vslhp 

ownvsls2 

text 

3 

vslhull 

ownvsls 2 

text 

1 

vsllenft 

ownvsls2 

integer 

vsllenin 

ownvsls2 

integer 

vslmake 

ownvsls2 

text 

10 

vslmarks 

ownvsls2 

text 

40 

vslmasts 

ownvsls2 

text 

1 

vslmodel 

ownvsls2 

text 

10 

vslname 

ownvsls 

text 

17 

vslname 

ownvsls2 

text 

17 

vslno 

ownvsls2 

text 

8 

vsloffno 

ownvsls2 

text 

10 

vslprop 

ownvsls2 

text 

1 

vslsuper 

ownvsls2 

text 

12 

vsltons 

ownvsls2 

integer 

vsltype 

ownvsls2 

text 

2 

vsluse 

ownvsls2 

text 

2 

vslvalue 

ownvsls2 

dollar 

vslyear 

ownvsls2 

text 

4 

date 

text 

text 

text 

date 

text 

text 

text 

date 

text 

text 

text 

text 

text 

text 

time 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

integer 

integer 

text 

date 

date 

text 
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Intlname 

Intml 

Intvname 

mucn 

obslat 

obslong 

offshore 

pintdate 

pintreml 

pintrem2 

pintremS 

sailno 

sailno 

sardate 

sarlat 

sarlong 

sarnod 

sarpob 

sartime 

sarvhin 

slcolor 

slcolor 

stolen 

tmp 

trcolor 

trcolor 

ucn 

uns69 

uns70 

uns71 

uns72 

uns73 

uns74 

uns75 

uns76 

uns77 

uns78 

uns79 

vhinoper 

vhinoper 

vhinown 

vhinown 

viol54 

viol55 

viol56 

viol57 

viol58 

viol59 

viol60 

violSl 

viol62 

viol63 

viol64 

viol65 

viol66 

viol67 

viol68 

vremarkl 

vremark2 

vremark3 

vslcall 

vslcall 

vslconst 

vslconst 

vsleng 


perlnt 

perlnt 

vslint 

sarhis 

bohls 

bohls 

sarhis 

perint 

perlnt 

perint 

perint 

pvsljoin 

wvsljoin 

sarhis 

sarhis 

sarhis 

sarhis 

sarhis 

sarhis 

sarhis 

pvsljoin 

wvsljoin 

vslint 

temp 

pvsljoin 

wvsljoin 

sarhis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

pvsljoin 

vslsopr 

vslsown 

wvsljoin 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

bohis 

vslint 

vslint 

vslint 

pvsljoin 

wvsljoin 

pvsljoin 

wvsljoin 

pvsljoin 


text 

text 

text 

text 

real 

real 

integer 

date 

text 

text 

text 

text 

text 

date 

real 

real 

text 

integer 

time 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 
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Len 

vslenq 

•  wvsljoin 

text 

1 

vslfuel 

pvslioin 

text 

1 

vslfuel 

wvsljoin 

text 

1 

vslhin 

pvsljoin 

text 

12 

vslhin 

wvsljoin 

text 

12 

vslhp 

pvsljoin 

text 

3 

vslhp 

wvsljoin 

text 

3 

vslhull 

pvsljoin 

text 

1 

vslhull 

vsllenft 

vsllenft 

vsllenin 

vsllenin 

wvsljoin 

pvsljoin 

wvsljoin 

pvsljoin 

wvsljoin 

text 

integer 

integer 

integer 

integer 

1 

vslmake 

pvsljoin 

text 

10 

vslmake 

wvsljoin 

text 

10 

vslmarks 

pvsljoin 

text 

40 

vslmarks 

wvsljoin 

text 

40 

vslmasts 

pvsljoin 

text 

1 

vslmasts 

wvsljoin 

text 

1 

vslmodel 

pvsljoin 

text 

10 

vslmodel 

wvsljoin 

text 

10 

vslname 

pvsljoin 

text 

17' 

vslname 

wvsljoin 

text 

17 

vslno 

pvsljoin 

text 

8 

vslno 

wvsljoin 

text 

8 

vsloffno 

pvsljoin 

V  ext 

10 

vsloffno 

vslpob 

wvsljoin 

bohis 

text 

integer 

10 

vs Ip r op 

pvsljoin 

text 

1 

vslprop 

wvsljoin 

text 

1 

vslsuper 

pvsljoin 

text 

12 

vslsuper 

vsltons 

vsltons 

wvsljoin 

pvsljoin 

wvsljoin 

text 

integer 

integer 

12 

vsltype 

pvsljoin 

text 

2 

vsltype 

wvsljoin 

text 

2 

vsluse 

pvsljoin 

text 

2 

vsluse 
vs lvalue 
vs lvalue 

wvsljoin 

pvsljoin 

wvsljoin 

text 

dollar 

dollar 

2 

vslyear 

pvsljoin 

text 

4 

vslyear 

weapons 

bodate 

wvsljoin 

bohis 

bohis 

text 

integer 

date 

4 

boname 

bohis 

text 

25 

bono 

bohis 

text 

7 

borate 

bohis 

text 

5 

boreml 

bohis 

text 

70 

borem2 

bohis 

text 

70 

borem3 

botime 

bohis 

bohis 

text 

time 

70 

bovhin 

bohis 

text 

12 

wiccode 

folderno 

vslint 

text 

1 

sarhis 

text 

7 

immedsar 

intdate 

intdob 

sarhis 

vslint 

perint 

text 

date 

date 

1 

intfname 

perint 

text 

15 

intlname 

perint 

text 

20 

intmi 

perint 

text 

1 

intvname 

vslint 

text 

17 

mucn 

sarhis 

text 

8 

obslat 

bohis 

real 

2.3 

obslong 

offshore 

bohis 

sarhis 

real 

integer 

3.3 
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Used  In 

AttName 

RelName 

Type 

Len 

quer_vsl 

plntdate 

perlnt 

date 

plntreml 

perint 

text 

70 

plntrem2 

perint 

text 

70 

plntrem3 

perint 

text 

70 

sardate 

sarhis 

date 

sarlat 

sarhis 

real 

2.3 

sarlong 

sarhis 

real 

3.3 

sarnod 

sarhis 

text 

25 

sarpob 

sarhis 

integer 

sartime 

sarhis 

time 

sarvhin 

sarhis 

text 

12 

stolen 

vslint 

text 

1 

tmp 

temp 

text 

2 

ucn 

sarhis 

text 

8 

uns69 

bohis 

text 

1 

uns70 

bohis 

text 

1 

uns71 

bohis 

text 

1 

uns72 

bohis 

text 

1 

uns73 

bohis 

text 

1 

uns74 

bohis 

text 

1 

uns75 

bohis 

text 

1 

uns76 

bohis 

text 

1 

uns77 

bohis 

text 

1 

uns78 

bohis 

text 

1 

uns79 

bohis 

text 

1 

viol54 

bohis 

text 

1 

violSS 

bohis 

text 

1 

viol56 

bohis 

text 

1 

viol57 

bohis 

text 

i 

vioisa 

bohis 

text 

1 

viol59 

bohis 

text 

1 

viol60 

bohis 

text 

1 

viol61 

bohis 

text 

1 

viol62 

bohis 

text 

1 

viol63 

bohis 

text 

1 

viol64 

bohis 

text 

1 

viol65 

bohis 

text 

1 

viol66 

bohis 

text 

1 

viol67 

bohis 

text 

1 

viol68 

bohis 

text 

1 

vremarkl 

vslint 

text 

70 

vremark2 

vslint 

text 

70 

vreinark3 

vslint 

t<«xt 

70 

vslpob 

bohis 

integer 

weapons 

bohis 

integer 

sardump 

ceiling 

sarsum 

integer 

clouds 

sarsum 

integer 

folderno 

sarsum 

text 

7 

immedsar 

sarsum 

text 

1 

mucn 

sarsum 

text 

8 

offshore 

sarsum 

integer 

sardate 

sarsum 

date 

sarday 

sarsum 

text 

3 

sarlat 

sarsum 

real 

2.3 

sarlong 

sarsum 

real 

3.3 

sarnod 

sarsum 

text 

25 

sarpob 

sarsum 

integer 

sartime 

sarsum 

time 

sarvhin 

sarsum 

text 

12 

seas 

sarsum 

integer 

ssunrise 

sarsum 

time 

ssunset 

sarsum 

time 

swells 

sarsum 

integer 

ucn 

sarsum 

text 

8 

visdist 

sarsum 

integer 

Used  In 
sardump 
sarday 


AttName 


RelName 


Type 


Len 


sarmajor 


sarminor 


sarsmbt 

sartimes 


smboatrp 


wlnddlr 

wlndspd 

folderno 

folderno 

pctlncr 

sardate 

sardate 

sarday 

sarday 

sarnum 

saryear 

tmp 

folderno 

freocnt 

gric^ct 

majeast 

maqgrid 

ma^ north 

ma^ south 

majvest 

sarlat 

sarlong 

folderno 

freocnt 

griapct 

mineast 

mingrld 

minnorth 

minwest 

sarlat 

sarlong 

folderno 

sarlat 

sarlong 

tmp 

alngdate 

alngdate 

alngtime 

alndtime 

dvmaate 

dvmoored 

foldno 

foldno 

foldno 

foldno 

foldno 

osdate 

osdate 

ostlme 

ostime 

sutdate 

sutmoor 

tmp 

towdate 

tow time 

uwdate 

uwdate 

uwdate 

uwtime 

uwtime 

uwtime 

bono 

obslat 

obslong 

tmp 


sarsum 

sarsum 

sarsum 

sarsuml 

sarstat 


sarsum 

sarsuml 


sarsum 

sarsuml 

sarstat 

sarstat 

temp 

sarsum 


positfrq 

positfrq 

positfrq 

positfrq 

positfrq 

positfrq 

positfrq 

sarsum 

sarsum 

sarsum 

positfrq 

positfrq 

positfrq 

positfrq 

positfrq 

positfrq 

sarsum 

sarsum 


sarsum 

sarsum 

sarsum 

temp 

sartimeS 

sartime4 

sartime3 

sartime4 

sartimeS 

sartimeS 

sartimel 

sartime2 

sartime3 

sartirae4 

sartimeS 

sartimel 

sartime4 

sartimel 

sartime4 

sartime2 

sartime2 

temp 

sartimeS 

sartimeS 

sartimel 

sartime2 

sartime3 

sartimel 

sartime2 

sartime3 

bosum 

bosum 

bosum 

temp 
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integer 

Integer 

text 

text 

real 

date 

date 

text 

text 

integer 

text 

text 

text 

integer 

real 

real 

text 

real 

real 

real 

real 

real 

text 

integer 

real 

real 

text 

real 

real 

real 

real 

text 

real 

real 

text 

date 

date 

time 

time 

date 

time 

text 

text 

text 

text 

text 

date 

date 

time 

time 

date 

time 

text 

date 

time 

date 

date 

date 

time 

time 

time 

text 

real 

real 

text 


7 

7 


3 

3 


4 

2 

7 


3.3 
2 

2.3 

2.3 

3.3 

2.3 

3.3 
7 


3.3 
2 

2.3 

3.3 

2.3 

3.3 
7 

2.3 

3.3 
2 


7 

7 

7 

7 

7 


7 

2.3 

3.3 
2 


IVJIJUJU 


nmwmmvmiimvmvwvm 


Ufed  In 
vessel 


AttName 

RelName 

Type 

Len 

cbcolor 

vslsum 

text 

3 

cbcolor 

vslsuml 

text 

3 

cbcolor 

vslsum2 

text 

3 

cmedecal 

vslsum 

text 

1 

cmedecal 

vslsuml 

text 

1 

cmedecal 

vslsum2 

text 

1 

cmeyear 

vslsum 

text 

4 

cmeyear 

vslsuml 

text 

4 

cmeyear 

vslsvun2 

text 

4 

dkcolor 

vslsum 

text 

3 

dkcolor 

vslsuml 

text 

3 

dkcolor 

vslsum2 

text 

3 

hlcolor 

vslsum 

text 

3 

hlcolor 

vslsuml 

text 

3 

hlcolor 

vslsum2 

text 

3 

homeport 

vslsum 

text 

25 

homeport 

vslsuml 

text 

25 

homeport 

vslsum2 

text 

25 

sailno 

vslsum 

text 

8 

sallno 

vslsuml 

text 

8 

sailno 

vslsum?. 

text 

8 

slcolor 

vslsum 

text 

3 

slcolor 

vslsuml 

text 

3 

slcolor 

vslsum2 

text 

3 

trcolor 

vslsum 

text 

3 

trcolor 

vslsuml 

text 

3 

trcolor 

vslsum2 

text 

3 

vslcall 

vslsum 

text 

12 

vslcall 

vslsuml 

text 

12 

vslcall 

vslsum2 

text 

12 

vslconst 

vslsum 

text 

1 

vslconst 

vslsuml 

text 

1 

vslconst 

vslsum2 

text 

1 

vsieng 

vslsum 

text 

1 

vsleng 

vslsuml 

text 

1 

vsieng 

vslsum2 

text 

1 

vslfuel 

vslsum 

text 

1 

vslfuel 

VSlSUTiil 

text 

1 

vslfuel 

vslsum2 

text 

1 

vslhin 

vslsum 

text 

12 

vslhin 

vslsuml 

text 

12 

vslhin 

vslsum2 

text 

12 

vslhp 

vslsum 

text 

3 

vslhp 

vslsuml 

text 

3 

vslhp 

vslsum2 

text 

3 

vslhull 

vslsum 

text 

1 

vslhull 

vslsuml 

text 

1 

vslhull 

vslsum2 

text 

1 

vsllenft 

vslsum 

integer 

vsllenft 

vslsuml 

integer 

vsllenft 

vslsum2 

integer 

vsllenin 

vslsum 

integer 

vsllenin 

vslsuml 

intea... 

vsllenin 

vslsum2 

intec  r 

vslmake 

vslsum 

text 

10 

vslmake 

vslsuml 

text 

10 

vslmake 

vslsum2 

text 

10 

vslmarks 

vslsum 

text 

40 

vslmarks 

vslsuml 

text 

40 

vslmarks 

vslsum2 

text 

40 

vslmasts 

vslsum 

text 

1 

vslmasts 

vslsuml 

text 

1 

vslmasts 

vslsum2 

text 

1 

vslmodel 

vslsum 

text 

10 

vslmodel 

vslsuml 

text 

10 

162 


Uied  Zn 

AttName 

RelName 

Type 

Len 

vessel 

vslmodel 

vslsuin2 

text 

10 

vslname 

vslsum 

text 

17 

vslname 

vslsuml 

text 

17 

vslname 

vslsum2 

text 

17 

vslno 

vslsum 

text 

8 

vslno 

vslsuml 

text 

8 

vslno 

vslsum2 

text 

8 

vsloffno 

vslsum 

text 

10 

vsloffno 

vslsuml 

text 

10 

vsloffno 

vslsum2 

text 

10 

vs Ip r op 

vslsum 

text 

1 

vs Ip r op 

vslsuml 

text 

1 

vslprop 

vslsum2 

text 

1 

vslsuper 

vslsum 

text 

12 

vslsuper 

vslsuml 

text 

12 

vslsuper 

vslsum2 

text 

12 

vsltons 

vslsum 

integer 

vsltons 

vslsuml 

integer 

vsltons 

vslsum2 

integer 

vsltype 

vslsum 

text 

2 

vsltype 

vslsuml 

text 

2 

vsltype 

vslsum2 

text 

2 

vsluse 

vslsum 

text 

2 

vsluse 

vslsuml 

text 

2 

vsluse 

vslsum2 

text 

2 

vs lvalue 

vslsum 

dollar 

vs lvalue 

vslsuml 

dollar 

vslvalue 

vslsum2 

dollar 

vslyear 

vslsum 

text 

4 

vslyear 

vslsuml 

text 

4 

vslyear 

vslsum2 

text 

4 

violfreq 

bono 

frqchart 

text 

7  3 

uns69 

U6U1p 

frqchart 

U6A  U 

text 

1 

uns70 

frqchart 

text 

1 

uns71 

frqchart 

text 

1 

uns72 

frqchart 

text 

1 

uns73 

frqchart 

text 

1 

uns74 

frqchart 

text 

1 

uns75 

frqchart 

text 

1 

uns76 

frqchart 

text 

1 

uns77 

frqchart 

text 

1 

uns78 

frqchart 

text 

1 

uns79 

frqchart 

text 

1 

viol54 

frqchart 

text 

1 

viol55 

frqchart 

text 

1 

viol56 

frqchart 

text 

1 

viol57 

frqchart 

text 

1 

viol58 

frqchart 

text 

1 

viol59 

frqchart 

text 

1 

violSO 

frqchart 

text 

1 

viol61 

frqchart 

text 

1  ! 

viol62 

frqchart 

text 

1  : 

viol63 

frqchart 

text 

1  ! 

viol64 

frqchart 

text 

1 

viol65 

frqchart 

text 

1 

viol66 

frqchart 

text 

1  ; 

viol67 

frqchart 

text 

1  : 

viol68 

frqchart 

text 

1  j 

vs  lope r 

cbcolor 

opvsls2 

text 

3  ' 

cmedecal 

opvsls2 

text 

1 

cmeyear 

covsls2 

text 

4 

dkcolor 

oi.vsls2 

text 

3 

hlcolor 

opvsls2 

text 

3 

hom'iport 

opvsls2 

text 

25 
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AttName 


RelNatne 


Used  In 


Type  Len 


vsloper 


Idoper 

Idoper 

opaddr 

opaddr 

opaddr 

opcity 

opcity 

opcity 

opcourse 

opcourse 

op  dob 

opdob 

op  dob 

op f name 

op f name 

opfname 

op  id 

op  id 

oplname 

oplname 

oplname 

opmi 

opmi 

opmi 

opstate 

opstate 

opstate 

optelno 

optelno 

optelno 

op  zip 

opzip 

op  zip 

sailno 

slcolor 

trcolor 

vhinoper 

vhinoper 

vslcall 

vslconst 

vsleng 

vslfuel 

vslhin 

vslhin 

vslhp 

vslhull 

vsllenft 

vsllenin 

vslmake 

vslmarks 

vslmasts 

vslmodel 

vslname 

vslname 

vslno 

vsloffno 

vs Ip r op 

vslsuper 

vsltons 

vsltype 

vsluse 

vs lvalue 

vslyear 


opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opervsls 

opvslsl 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvslsl 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opervsls 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opervsls 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

opvsls2 


integer 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

date 

date 

date 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

text 

text 

dollar 

text 


25 

25 

25 

18 

18 

18 

1 

1 


15 

15 

15 


20 

20 

20 

1 

1 

1 

2 

2 

2 

12 

12 

12 

9 

9 

9 

8 

3 

3 

12 

12 

12 

1 

1 

1 

12 

12 

3 

1 


10 

40 

1 

10 

17 

17 

8 

10 

1 

12 

2 

2 

4 


Used  In 

AttName 

RelName 

Type 

Len 

vslowner 

cbcolor 

ownvsls2 

text 

3 

cmedecal 

ownvsls2 

text 

1 

cmeyear 

ownvsls2 

text 

4 

dkcolor 

ownvsls2 

text 

3 

hlcolor 

ownvsls2 

text 

3 

homeport 

Idowner 

Idowner 

cwnvsls2 

ownvslsl 

ownvsls2 

text 

integer 

integer 

25 

ownaddr 

ownvsls 

text 

25 

ownaddr 

ownvslsl 

text 

25 

ownaddr 

ownvsls2 

text 

25 

owncity 

ownvsls 

text 

18 

owncity 

ownvslsl 

text 

18 

owncity 

owndob 

owndob 

owndob 

ownvsls2 

ownvsls 

ownvslsl 

ownvslsZ 

text 

date 

date 

date 

18 

ownfname 

ownvsls 

text 

15 

ownfname 

ownvslsl 

text 

15 

ownfname 

ownid 

ownid 

ownvsls2 

ownvslsl 

ownvsls2 

text 

integer 

integer 

15 

ownlname 

ownvsls 

text 

20 

ownlname 

ownvslsl 

text 

20 

ownlname 

ownvsls2 

text 

20 

ownmi 

ownvsls 

text 

1 

ownmi 

ownvslsl  . 

text 

1 

ownmi 

ownvsls2 

text 

1 

ownstate 

ownvsls 

text 

2 

ownstate 

ownvslsl 

text 

2 

ownstate 

ownvsls2 

text 

2 

owntelno 

ownvsls 

text 

12 

owntelno 

ownvslsl 

text 

12 

owntelno 

ownvsls2 

text  ■ 

12 

ownzip 

ownvsls 

text 

9 

ownzip 

ownvslsl 

text 

9 

ownzip 

ownvsls 2 

text 

9 

sailno 

ownvsls2 

text 

8 

slcolor 

ownvsls2 

text 

3 

trcolor 

ownvsls 2 

text 

3 

vhinown 

ownvslsl 

text 

12 

vhinown 

ownvsls 2 

text 

12 

vslcall 

ownvsls2 

text 

12 

vslconst 

ownvsls2 

text 

1 

vsleng 

ownvsls2 

text 

1 

vslfuel 

ownvsls2 

text 

1 

vslhin 

ownvsls 

text 

12 

vslhin 

ownvsls2 

text 

12 

vslhp 

ownvsls 2 

text 

3 

vslhull 

vsllenft 

vsllenin 

ownvsls 2 
ownvsls2 
ownvsls 2 

text 

integer 

integer 

1 

vslmake 

ownvsls 2 

text 

10 

vslmarks 

ownvsls2 

text 

40 

vslmasts 

ownvsls2 

text 

1 

vslmodel 

ownvslsZ 

text 

10 

vslname 

ownvsls 

text 

17 

vslname 

ownvsls 2 

text 

17 

vslno 

ownvsls2 

text 

8 

vsloffno 

ownvsls 2 

text 

10 

vslprop 

ownvsls2 

text 

1 

vslsuper 

vsltons 

ownvsls2 

ownvsls2 

text 

integer 

12 

vsltype 

ownvsls2 

text 

2 

vsluse 
vs lvalue 

ownvsls2 

ownvsls2 

text 

dollar 

2 

vslyear 

ownvsls2 

text 

4 

PM 
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Program  Variables  Sorted  by  Variable  Name 


Name  Type 


addl_opr  text 

addl_own  text 

addlownr  text 

a£ter90  integer 

algavg  real 

algtlmes  integer 

allrecs  text 


anytype 

aprdacel 

text 

date 

aprdate2 

date 

aprsar 

integer 

augdatel 

date 

augdate2 

date 

augsar 

integer 

bl 

date 

blO 

text 

bll 

text 

bl2 

real 

bl3 

real 

bl4 

text 

bl5 

text 

bl6 

text 

bl7 

text 

bl8 

text 

bl9 

text 

b2 

time 

b20 

text 

b21 

text 

b22 

text 

b23 

text 

b24 

text 

b25 

text 

b26 

text 

b27 

text 

b28 

text 

b29 

text 

b3 

text 

real 

b30 

text 

b31 

text 

b32 

text 

b33 

text 

b34 

text 

b35 

text 

b36 

text 

b37 

text 

b38 

text 

b39 

text 

Used  In  Description 


add_sbd.prg  user  input 

add_sbd.prg  user  input 

add_sar.prg  user  input 

add”sbd.prg 

cmerpt.prg  counting  variable 

sartimes.prg  average  alongside  time 

sartimes.prg  counting  variable 

opervsl.prg  flag  -  all  records? 

opervsls.prg 

ownvsl.prg 

ownvsl.prg 

vsloper.prg 

vsloper.prg 

vslowner.prg 

vslowner.prg 

vessel. prg  flag  variable 

sarday.prg  starting  date 

sarday.prg  ending  date 

sarday.prg  summation  variable 

sarday.prg  starting  date 

sarday.prg  ending  date 

sarday.prg  summation  variable 

add_brd.prg  bodate  in  boarding 

add_sbd.prg 
mod  brd.prg 

mod3rd*prg  obscity 

mod  ord.prg  obsstate  in  boarding 

modibrd.prg  obslat  in  boarding 

modlprd.prg  obslong  in  boarding 

modjjrd.prg  viol54  in  boarding 

modjjrd.prg  viol55  in  boarding 

modjsrd.prg  viol56  in  boarding 

modjjrd.prg  viol57  in  boarding 

modjjrd.prg  viol58  in  boarding 

modjjrd.prg  viol59  in  boarding 

addjjrd.prg  botime  in  boarding 

add.sbd.prg 
modjjrd.prg 

mod  ord.prg  viol61  in  boarding 

mod”brd.prg  viol61  in  boarding 

mod^rd.prg  viol62  in  boarding 

mod3rd.prg  viol63  in  boarding 

modjjrd.prg  viol64  in  boarding 

mod  brd.prg  viol65  in  boarding 

mod  ord.prg  viol66  in  boarding 

modibrd.prg  viol67  in  boarding 

modjjrd.prg  viol68  in  boarding 

modibrd.prg  uns69  in  boarding 

mod  ord.prg  bono  in  boarding 

addjjrd.prg  obslat  in  boarding 

add  sbd.prg 

mod~brd.prg  uns70  in  boarding 

modJjJ^^i'Prg  uns71  in  boarding 

mod  brd.prg  uns72  in  boarding 

mod^rd.prg  uns73  in  boarding 

modibrd.prg  uns74  in  boarding 

modjjrd.prg  uns75  in  boarding 

mod  ord.prg  uns76  in  boarding 

modibrd.prg  uns77  in  boarding 

modjjrd.prg  uns78  in  boarding 

modjjrd.prg  uns79  in  boarding 
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Name  type  Used  In 


Description 


b4 

integer 

real 

b40 

text 

b41 

text 

b42 

text 

b43 

text 

b44 

text 

b45 

text 

b46 

text 

b47 

text 

b48 

text 

b49 

time 

bS 

bSO 

integer 

time 

b51 

text 

b52 

integer 

b6 

integer 

b7 

text 

b8 

text 

b9 

text 

backup 

text 

before70 

integer 

bohisprn 

text 

both 

text 

chances 

integer 

change 

text 

chk_hin 

text 

chk^name 

text 

chk_ownr 

text 

chk_hin 

text 

chk_intl 

text 

chk_narae 

text 

chk_no 

text 

chk_op 

text 

chkoftno 

text 

choice 

text 

cmecount  integer 

code  integer 

constrds  text 

consttst  text 

cont  text 


correct  text 


mod  brd.prg  vslpob  in  boarding 

addjsrd.prg  obslong  in  boarding 

add  sbd.prg 

mod  ord.prg  boreml  in  boarding 

mod^rd.prg  borem2  in  boarding 

mod^rd.prg  borem3  in  boarding 

mod^rd.prg  boname  in  boarding 

mod_brd.prg  borate  in  boarding 

mod  ord.prg  bounit  in  boarding 

mod  brd.prg  bodist  in  boarding 

mod_brd.prg  boopfac  in  boarding 

mod^^'d'Prg  boday  in  boarding 

mod_brd.prg  bsunrise  in  boarding 

mod  brd.prg  adultpfd  in  boarding 

modlprd.prg  bsunset  in  boarding 

mod3:rd*prg  bovhin  in  boarding 

mod_brd.prg  weapons  in  boarding 

mod  brd.prg  childpfd  in  boarding 

mod3fd.prg  owstatus  in  boarding 

modlprd.prg  obsbody  in  boarding 

mod3rd.prg  obscount  in  boarding 

addjjfd.prg  flag  variable 

add_sar.prg 
add_sbd.prg 

cmerpt.prg  counting  variable 

quer_per.prg  user  input 

quer_vsl.prg 

mod_sut.prg  flag  variable 

startup. pra  chances  to  logon 

mod_sar.prg  flag  variable 

mod  sut.prg 
saraay.prg 

mod_brd.prg  flag  variable 

mod  vhin.prg 

mod33fd.prg  flag  variable 

mod_vhin.prg 

mod_owop.prg  flag  variable 

quer_vsl.prg  flag  variable 

quer_vsl.prg  flag  variable 

quer_vsl.prg  flag  variable 

quer_vsl.prg  flag  variable 

quer_per.prg  flag  variable 

quer  vsl.prg  flag  variable 

add_brd.prg  user  input  variable 

add_sar,prg 

add_sbd.prg 

am_pint.prg 

am  vint.prg 

moa_owop.prg 

mod  owop.prg 

pacKdbms.prg 

quer_vsl.prg 

vessel. prg 

cmerpt.prg  counting  variable 

intelrpt.prg  input  variable 

intelrpt.prg  =  consdesc  in  CONSTR 

intelrpt.prg  =  constype  in  CONSTR 

add_brd.prg  user  input 

add_sar.prg 
add_sbd.prg 

am_pint.prg  user  input 

am  vint.prg 
moa_brd.prg 
mod_sar.prg 
mod_sut.prg 


167 


Name  Type  Used  In  Description 


correct  text 

count  Integer 


datadlff  integer 
datdiff  integer 
datediff  integer 


datedour 

real 

daybrd 

integer 

daysar 

integer 

decdatel 

date 

decdate2 

date 

decsar 

integer 

difbo 

text 

difsar 

text 

done 

text 

easttst 

real 

edscl 

text 

edsc2 

text 

edsc3 

text 

edsc4 

text 

enddate 

date 

mod_vhin.prg  user  input 

mod_vhin.prg 

guer_per.prg  counting  variable 

quer_vsl.prg 

sarday.prg 

startup. prg 

bominor.prg  date  difference 

bomaior.prg  date  difference 

boarding. prg  date  difference 

bominor.prg 

cmerpt.prg 

daynight.prg 

epicdump.prg 

immedsar.prg 

intelrpt.prg 

operator. prg 

owners. prg 

perintel.prg 

sardump.prg 

sarmajor.prg 

sarminor.prg 

aarsmbt.prg 

sartimes.prg 

smboatrp.prg 

violfreq.prg 

sartimes.prg  time  computation  variable 

daynight.prg  counting  variable 

daynight.prg  counting  variable 

sarday.prg  starting  date 

sarday.prg  ending  date 

sarday.prg  summation  variable 

add  sod. prg  flag  variable 

add_brd.prg 

add_sar.prg  flag  variable 

add_sbd.prg 

add_ownr.prg  flag  variable 

add_sut.prg 

mod^sut.prg 

quarter,  prg 

bomaior.prg  nautical  position  coord. 

bominor.prg 

sarmajor.prg 

sarminor.prg 

epicdump.prg  =  epicdscl  in  VSLINTEL 

epicdump.prg  =  epicdscZ  in  VSLINTEL 

epicdiamp.prg  =  epicdscS  in  VSLINTEL 

epicdump.prg  =  epicdsc4  in  VSLINTEL 

boarding. nrg  ending  date 

bomajor.prg 

bominor.prg 

cmerpt.prg 

daynight.prg 

epicdump.prg 

immedsar.prg 


Name  Type  Used  In  Description 


enddate  date 


endltr  text 


engdescr 

engtst 

epicnum 

epictest 

er 

text 

text 

integer 

text 

text 

error 

text 

fdesc 

febdatel 

febdate2 

febsar 

fixopr 

text 
date 
date  ' 
integer 
text 

fixovn 

text 

fixvsl 

foldok 

found 

foundv 

friday 

fueltst 

go 

gridcnt 

text 

text 

text 

text 

integer 

text 

text 

integer 

hdesc 

hulltst 

inarea 

text 

text 

integer 

initdate 

inpct 

date 

real 

Intelsum.prg  ending  date 

operator. prg 

ovmers.prg 

perintel.prg 

sarday.prg 

sardump.prg 

sarmajor.prg 

sarmlnor.prg 

sarsmbt.prg 

sartlmes.prg 

smboatrp.prg 

violfreq.prg 

operator. prg  ending  letter 

opervsl.prg 

opervsls.prg 

owners. prg 

ownvsl.prg 

perintel.prg 

vessel. prg 

vsloper.prg 

vslowner.prg 

intelrpt.prg  =  ecomptyp  in  ENGCOMP 

intelrpt.prg  =  ecomptype  in  ENGCCMP 

epicdump.prg  counting  variable 

epicdump.prg  =  epiccode  in  VSLINTEL 

mod  brd.prg  user  input 

mod3:rd-prg 

mod_owop.prg 

mod_sar.prg 

mod  vhin.prg 

modj3rd*prg  flag  variable 

mod_owop.prg 

mod_owop.prg 

mod^vhin.prg 

intelrpt.prg  ~  fcompdes  in  FUELCOMP 

sarday.prg  starting  date 

sarday.prg  ending  date 

sarday.prg  summation  variable 

add_brd.prg  flag  variable 

add_sar.prg 
add  sbd.prg 

add3jrd.prg  flag  variable 

add_sar.prg 

add_sbd.prg 

am  vint.prg  user  input 

mod  sut.prg  flag  variable 

sarday.prg  flag  variable 

mod  vhin.prg  user  input 

sarday.prg  counting  variable 

intelrpt.prg  =  fcomptyp  in  FUELCOMP 

mod_owop.prg  user  input 

sarmajor.prg  counting  variable 

sarmlnor.prg 

intelrpt.prg  =  hmatdesc  in  HULLMAT 

intelrpt.prg  =  hmattype  in  HULLMAT 

bomajor.prg  summation  variable 

bominor.prg 

sarmajor.prg 

sarmlnor.prg 

sarday.prg  starting  date 

bomajor.prg  percentage 

bominor.prg 

sarmajor.prg 

sarmlnor.prg 

sarsmbt.prg 
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If  ■  IJ I  vrw  i  i  rvi  rv  VJ-n  i 


Name  Type 


Used  In  Description 


inpcttmp  real 

Inside  integer 

Sandatel  date 

andate2  date 

ansar  integer 

luldatel  date 

iuldate2  date 

lulsar  integer 

jundatel  date 


jundate2 

iunsar 

legalch 

legaltyp 

legaluse 

len2030 

len3040 

len4050 

lenSOeO 

len6070 

lenVOaO 

len8090 

len90100 

len<20 

len>100 

loadmenu 


date 

integer 

text 

text 

text 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

text 


loadok  text 

Itrdiff  integer 


mardatel 

date 

mardate2 

date 

marsar 

integer 

maxaltim 

real 

maxostim 

real 

maxshtim 

real 

maxtttim 

real 

maxtwtim 

real 

maydatel 

date 

maydate2 

date 

maysar 

Integer 

menu 

text 

minaltim 

real 

minostim 

real 

minshtim 

real 

mintttim 

real 

mintwtim 

real 

monday 

integer 

more 

text 

sarsmbt.prg 

sarsmbt.prg 

smboatrp.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sardates.prg 

sarday.prg 

sarday.prg 

sarday.prg 

vessel. prg 

vessel. prg 

vessel. prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_ownr.prg 

operator. prg 

ojservsl.prg 

opervsls.prg 

owners. prg 

ownvsl.prg 

perintel.prg 

vessel. prg 

vsloper.prg 

vslowner.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sarday.prg 

sarday.prg 

sarday.prg 

quer^vsl.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sarday.prg 

add  sbd.prg 

add_brd.prg 

add_ownr.prg 

add_sar.prg 

am_pint.prg 

am  vint.prg 

mo3_brd.prg 


percentage 
summation  variable 

starting  date 

ending  date 

summation  variable 

starting  date 

ending  date 

summation  variable 

time  computation  variable 

ending  date 
summation  variable 
flag  variable 
flag  variable 
flag  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
flag  variable 


flag  variable 
letter  difference 


starting  date 
ending  date 
summation  variable 
maximum  alongside  time 
maximum  on  scene  time 
maximum  search  time 
maximum  total  case  time 
maximum  towing  time 
starting  date 
ending  date 
summation  variable 
flag  variable 
minimum  alongside  time 
minimum  on  scene  time 
minimum  search  time 
minimum  total  case  time 
minimum  towing  time 
counting  variable 
flag  variable 
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Name 


mrlntel 


mrname 

mropers 


mrownrs 


mrsar 

mrsut 

mrunits 


mrvsls 


name 

nameok 

new 

nitebrd 

nitesar 

nmchange 

northtst 


notlmmed 

novdatel 

novdate2 

novsar 

numrows 


Type 


text 

text 

integer 

integer 

integer 

text 

real 


integer 

date 

date 

integer 

integer 


numyears 

integer 

obslat 

real 

obslong 

real 

octdatel 

date 

octdate2 

date 

octsar 

integer 

old 

integer 

oldfold 

text 

opl 

text 

mm 


Used  In 


mod;_sar.prg 

mod_sut.prg 

mod_vhin.prg 

quer_per.prg 

quer  vsl.prg 

am_plnt.prg 

am_vint.prg 


querjer.prg 

add_brd.prg 


add  sbd.prg 

addjsrd^pi^g 

add_ownr.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

mod_sut.prg 

add_sar.prg 

add_sbd.prg 

add  sut.prg 

mod3rd.prg 

mod_vhin.prg 

mod_sut.prg 

quer_vsl.prg 

sarday.prg 

daynight.prg 

daynight.prg 

mod_owop.prg 

bomajor.prg 

bominor.prg 

sarmajor.prg 

sarminor.prg 

immedsar.prg 

sarday.prg 

sarday.prg 

sarday.prg 

boarding. prg 

immedsar.prg 

intelrpt.prg 

operator. prg 

opervsls.prg 

owners. prg 

ownvsl.prg 

perintel.prg 

sarday.prg 

sardump.prg 

sarmajor.prg 

sarminor.prg 

sarsmbt.prg 

vessel. prg 

vs lope r. prg 

vslowner.prg 

sarday.prg 

smboatrp.prg 

smboatrp.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

mod  sar.prg 

addibfd.ijrg 

add_sar.prg 

add_sbd.prg 

modTowop.prg 


Description 
flag  variable 


user  input 


user  input 
user  input 


user  input 


user  input 
user  input 
user  input 


user  input 


flag  variable 

flag  variable 

this  year's  sar  cases 

counting  variable 

counting  variable 

flag  variable 

nautical  position  coord. 


non- immediate  SAR  Cases 
starting  date 
ending  cate 
summation  variable 
counting  variable 


counting  variable 
nautical  position  coord, 
nautical  position  coord, 
starting  date 
ending  date 
summation  variable 
previous  year's  sar  cases 
folder  number 
oplname  in  operator 


integer 


opchange 

opfouna 


opfouni 
op  id 


text 

text 

integer 


opr found 

oscavg 

osdate 

ossum 

ostime 

ostimes 

out 

outarea 


text 

real 

date 

real 

time 

integer 

text 

integer 


outpct 


outpcttm  real 

outside  integer 


Used  In 


add_brd.prg 

add_sar.prg 

add_sbd.prg 

mod  owop.prg 

addlbfd*prg 

add_sar.prg 

add_sbd.prg 

mod  owop.prg 

addlbrd^prg 

add_sar.prg 

add_sbd.prg 

modowop.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

mod  owop.prg 

addibrd.prg 

add_sar.prg 

add_sbd.prg 

mod  owop.prg 

add33rd*pr‘g 

add_sar.prg 

add_sbd.prg 

mod  owop.prg 

addibrd.prg 

add_sar.prg 

add_sbd.prg 

mod  owop.prg 

add33rd.prg 

add_sar.prg 

add_sbd.prg 

mod  owM.prg 

addj3rd.prg 

add.sar.prg 

add^sbd.prg 

mod  owop.prg 

addibrd.prg 

add_sar.prg 

add_sfad.prg 

mod_owop.prg 

mod_owop.prg 

mod_owop.prg 

mod_owop.prg 

quer_per.prg 

quer_vsl.prg 

quarter. prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

add_ownr.prg 

bomajor.prg 

bominor.prg 

sarmajor.prg 

sarminor.prg 

bomajor.prg 

bominor.prg 

sarmajor.prg 

sarminor.prg 

sarsmbt.prg 

sarsmbt.prg 

sarsmbt.prg 

smboatrp.prg 


Description 


opcourse  in  operator 


opid  in  operator 


opfname  in  operator 


opmi  in  operator 


opaddr  in  operator 


opcity  in  operator 


opstate  in  operator 


opzip  in  operator 


optelno  in  operator 


opdob  in  operator 


flag  variable 
flag  variable 
operator  id  (system) 


flag  variable 
average  on  scene  time 
on  scene  date 
summation  variable 
on  scene  time 
counting  variable 
flag  variable 
summation  variable 


percentage 


percentage 
summation  variable 


Name 


Used  In 


Description 
ownlname  in  owners 


owl 

owlO 

ow2 

ow3 

ow4 

ow5 

ow6 


text 

text 

text 

text 

text 

text 

text 


ow7  text 


ow8  text 

ow9  date 


owchange 

owfouna 

owhisprn 

owid 

owndone 

own found 

owoptest 

pcik6. 

pct2030 

pct3040 

pct4050 

pctsoeo 

pct54 

pct54tmp 

pctSS 

pctSStmp 

pct56 

pct56tmp 

pct57 

pct57tmp 

pct58 

pct58tmp 

pct59 

pct59tmp 

pct60 


text 

text 

text 

integer 

text 

text 

text 

integer 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 


addjsrd.prg 
add_sar.prg 
add_sbd.prg 
mod  owop.prg 
addjjrd.prg 
add_sar.prg 
add_sbd.prg 
mod  owop.prg 
add^jfd-prg 
add_sar.prg 
add_sbd.prg 
mod  owop.prg 
addjsrd.prg 
add_sar.prg 
add_sbd.prg 
mod  owop.prg 
addZbfd.prg 
add_sar.prg 
add_sbd.prg 
mod  owop.prg 
add^jrd.prg 
add_sar.prg 
add_sbd.prg 
modowop.prg 
add^brd.prg 
add_sar.prg 
add_sbd.prg 
mod  owop.prg 
add35rd.prg 
add_sar.prg 
add_sbd.prg 
mod  owop.prg 
addjord.prg 
-add^sar.prg 
add^sbd.prg 
mod  owop.prg 
addjsrd.prg 
add_sar.prg 
add_sbd.prg 
mocCowop.prg 
mod_owop.prg 
mod_owop.prg 
quer_vsl.prg 
quer_vsl.prg 
quer_per.prg 
quer_per.prg 
quer_per.prg 
brd_main.prg 
intelrpt.prg 
intelrpt.prg 
intelrpt.prg 
intelrpt.prg 
violfreq.prg 
violfreq.prg 
violfreq.prg 
violfreq.prg 
violfreq.prg 
violfreq.prg 
violfreq.prg 
violfreq.prg 
violfreq.prg 
violfreq.prg 
violfreq.prg 
violfreq.prg 
violfreq.prg 


ownid  in  owners 


ownfname  in  owners 


ownmi  in  owners 


ownaddr  in  owners 


owncity  in  owners 
ownstate  in  owners 
ownzip  in  owners 
owntelno  in  owners 

owndob  in  owners 


flag  variable 

flag  variable 

user  input 

owner  id  (system) 

flag  variable 

flag  variable 

flag  variable 

counting  variable 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 


pct6070 

pct60tmp 

pct61 

pctSltmp 

pct62 

pct62tnip 

pct63 

pct63tinp 

pct64 

pct64tmp 

pct65 

pct65tmp 

pct66 

pct66t:mp 

pct67 

pct67tmp 

pct68 

pctSStmp 

pct69 

pct69tmp 

pct70 

pct7080 

pcf''  tmp 

pctVi 

pct7175 

pct71tmp 

pct72 

pc t7 2 tmp 

pct73 

pc t7 3 tmp 

pct74 

pct74tmp 

pct75 

pc t7 5 tmp 

pct76 

pct7679 

pct76tmp 

pct77 

pct77tmp 

pct78 

pc t7 8 tmp 

pct79 

pct79tmp 

pct8081 

pct8090 

pct8283 

pct8485 

pct8687 

pct8889 

pct9010 

pct90100 

pct<00 

pct<20 

pct<60 

.pct<65 

pct<70 

pct<75 

pct<80 

pct<85 

pct<90 

pct<95 

pct>00 

pct>100 

pctapr 

pctaug 


real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

integer 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 


Intelrpt.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

intelrpt.prg 

violfreq.prg 

violfreq.prg 

cmerpt.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

cmerpt.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

cmerpt.prg 

intelrpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

sarday.prg 

sarday.prg 


percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

P'ircentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 


Name  Type  Used  In 


Description 


pctchang 

pctcme 

pctdayb 

pctdays 

pctdec 

pctfeb 

pctfri 

pctgt90 

pctimmed 

pctjan 

pctjul 

pctiun 

pctlt70 

pctmar 

pctmay 

pctmon 

pctniteb 

pctnites 

pctnotim 

pctnov 

pctoct 

pctsat 

pctsep 

pctsun 

pcttempl 

pcttemp2 

pctthu 

pcttue 

pctwed 

perintpr 

persprn 

pg 


real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

text 

text 

integer 


pgcount  integer 


pickl  integer 

picklO  integer 

pickll  integer 

pick2  integer 

pick3  integer 

pick4  integer 

picks  integer 

pick?  integer 

picks  integer 

picks  integer 

prdesc  text 

proptst  text 

reenter  text 


review  text 


sarday.prg  percentage 

cmerpt.prg  percentage 

daynight.prg  percentage 

daynight.prg  percentage 

sarday.prg  percentage 

sarday.prg  percentage 

sarday.prg  percentage 

cmerpt.prg  percentage 

immedsar.prg  %  immediate  SAR  cases 

sarday.prg  percentage 

sarday.prg  percentage 

sarday.prg  percentage 

cmerpt.prg  percentage 

sarday.prg  percentage 

sarday.prg  percentage 

sarday.prg  percentage 

daynight.prg  percentage 

daynight.prg  percentage 

immedsar.prg  %  non-immediate  SAR  Cases 

sarday.prg  percentage 

sarday.prg  percentage 

sarday.prg  percentage 

sarday.prg  percentage 

sarday.prg  percentage 

epicdump.prg  %  epiccode  /  total  vsls 

epicdump.prg  %  epiccode  /  total  vsls 

sarday.prg  percentage 

sardev.prg  percentage 

sarday.prg  percentage 

quer_per.prg  user  input 

quer  oer.prg  user  input 

add_brd.prg  counting  variable 

add_sar.prg 

add  sbd.prg 

modlprd.prg 

addjat'i-pfg  counting  variable 

add^sar.prg 

add  sbd.prg 

sarsys.prg  menu  variable 

qrymain.prg  menu  variable 

utlmain.prg  menu  variable 

inpmain.prg  menu  variable 

modmain.prg  menu  variable 

^tmain.prg  menu  variable 

int_main.prg  menu  variable 

sar_main.prg  menu  variable 

vsl_main.prg  menu  variable 

prs_main.prg  menu  variable 

intelrpt.prg  =  propdesc  in  BOATPROP 

intelrpt.prg  =  proptype  in  BOATPROP 

add_ownr.prg  user  input 

am_pint.prg 
am  vint.prg 
moa_sar.prg 
mod  sut.prg 

addDsrd.prg  flag  variable 

add_sar.prg 
add  sbd.prg 
mod_brd.prg 
add_sar.prg 
add_sbd.prg 


sunits 


text 


user  input 


Name  Type  Used  In  Description 


si 


slO 

sll 

sl2 

sl3 

sl4 

sl5 

sl6 

sl7 

Sis 

sl9 


s20 

s21 

s22 

s3 


s4 


s5 


s6 


s7 

s8 

s9 

sarOO 

sarOl 

sar02 

sar03 

sar04 

sarOS 

sar06 

sar07 

sarOS 

sar09 

sarlO 

sarll 

sarl2 

sarSl 

sar82 

sar83 

sar84 

sar85 

sar86 

sar87 

sar88 

sar89 

sar90 

sar91 

sar92 

sar93 

sar94 

sar95 

sar96 

sar97 

sar98 


date 

text 

Integer 

text 

real 

real 

integer 

text 

text 

text 

text 

text 

time 

text 

text 

text 

text 

real 

text 

real 

date 

text 

text 

text 

time 

time 

time 

text 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

intecer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


add_sar.prg 

add_sbd.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mGd_sar.prg 

mod_sar.prg 

mod_sar.prg 

add_sar.prg 

add^sbd.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod  sar.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.pro 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 


sardate  in  sar 

folderno  in  sar 
sarpob  in  sar 
sarvhin  in  sar 
sarlat  in  sar 
sarlong  in  sar 
distofr  in  sar 
immedsar  in  sar 
winddir  in  sar 
windspd  in  sar 
visdist  in  sar 
clouds  in  sar 
sartime  in  sar 

ucn  in  sar 
ceiling  in  sar 
seas  in  sar 
swells  in  sar 
sarlat  in  sar 

mucn  in  sar 
sarlong  in  sar 

sardate  in  sar 
sarnod  in  sar 

sarday  in  sar 
sarvhin  in  sar 

sartime  in  sar 
ssunrise  in  sar 
ssunset 
sarnod‘  in  sar 
counting  vjiriable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 


Name  Type 


Used  In 


Description 


8ar99  integer 

sarhsprn  text 

Saturday  Integer 

schavg  real 

schtimes  integer 

searchok  text 

sepdatel  date 

sepdate2  date 

sepsar  integer 

southtst  real 


status  text 

strtdate  date 


strtltr  text 


sul 

sulO 

sull 

sul2 

sul3 

sul4 

sulS 

sul6 

su2 

su3 

su4 

su5 

su6 

su7 

su8 

su9 

suml 

sumlO 

sumll 

suml2 

sum2 

sum20 

sum3 


text 

date 

time 

date 

time 

date 

time 

date 

text 

time 

date 

time 

date 

time 

date 

text 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


sard  ty.prg 

quer  jjer.prg 

quer_vsl.prg 

sarday.prg 

sartimes.prg 

sartlmes.prg 

quer_per.prg 

sarday.prg 

sarday.prg 

sarday.prg 

bomajor.prg 

bominor.prg 

sarmajcr.prg 

sarminor.prg 

quer  oer.prg 

boarding. prg 

bomajor.prg 

bominor.prg 

erne rpt. pro 

daynight.prg 

epic  dump. prg 

immedsar.prg 

intelrpt.prg 

operator. prg 

owners. prg 

per Intel. prg 

sardump.prg 

sarmajor.prg 

sarminor.prg 

sarsmbt.prg 

sartimes.prg 

smboatrp.prg 

violfreq.prg 

operator. prg 

opervsl.prg 

opervsls.prg 

ovmers.prg 

ownvsl.prg 

perintel.prg 

vessel. prg 

vsloper.prg 

vslowner.prg 

mod_sut.prg 

mod_sut.prg 

mod_sut.prg 

mod_sut.prg 

mod_sut.prg 

raod_sut.prg 

mod_sut.prg 

mod_sut.prg 

raod_sut.prg 

mod_sut.prg 

mod_sut.prg 

mod_sut.prg 

mod_sut.prg 

raod_sut.prg 

mod_sut.prg 

mod  sut.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 


counting  variable 
user  input 

counting  variable 
average  search  time 
counting  variable 
flag  variable 
starting  date 
ending  date 
summation  variable 
nautical  position  coord. 


flag  variable 
starting  date 


starting  letter 


foldno  in  sarunits 
alngdate  in  sarunits 
towtime  in  sarunits 
towdate  in  sarunits 
dvmoored  in  sarunits 
dvmdate  in  sarunits 
sutmoor  in  sarunits 
sutdate  in  sarunits 
unit  in  sarunits 
uwtime  in  sarunits 
uwdate 

oseta  in  sarunits 
etadate  in  sarunits 
ostime  in  sarunits 
osdate  in  sarunits 
alngtime  in  sarunits 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
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Name 


Used  In 


Description 


sum4 

sumS 

sum6 

sumconst 

sumeng 

sumfuel 

sumhull 

sump  r  op 

sumtype 

sumuse 

Sunday 

sutdate 

sutmoor 

temppct 


test 

thursday 

timeadd 

timehour 

totavg 

totbras 


totepics 

totimmed 

totsars 


totsum 

tottimes 

totviols 


towavg 

towsum 

towtimes 

tuesday 

tvl 

tvlO 

tv2 

tv20 

tv3 

tv30 

tv4 

tv5 

typchoic 

typdescl 

typetest 


uns69s 

uns70s 

uns71s 

uns72s 

uns73s 

uns74s 

uns75s 

uns76s 

uns77s 

uns78s 

uns79s 

unstotl 


integer 

integer 

integer 

i  .teger 

:'!,'.eger 

integer 

integer 

integer 

integer 

integer 

integer 

date 

time 

real 


real 

integer 

real 

real 

real 

integer 


integer 

integer 

integer 


real 

integer 

integer 


real 

real 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

text  . 

text 

text 


integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


sarday.prg 

sarday.prg 

sarday.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

sarday.prg 

sartimes.prg 

sartimes.prg 

bomajor.prg 

bominor.prg 

sarmajor.prg 

sarminor.prg 

sartimes.prg 

sarday.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 


smboatrp.prg 

epicdump.prg 

immedsar.prg 

daynight.prg 

immedsar.prg 

sarday.prg 

sarmaior.prg 

sarsmBt.prg 

sartimes.prg 

sartimes.prg 

intelrpt.prg 

intelrpt.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sarday.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

vessel. prg 

intelrpt.prg 

intelrpt.prg 

vessel. prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfroq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 


summation  variable 
summation  variable 
summation  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
sar  unit  moored  date 
sar  unit  moored  time 
percentage 


comparison  variable 
counting  variable 
time  computation  variable 
time  computation  variable 
average  total  case  time 
counting  variable 


counting  variable 
counting  variable 
total  sars 


summation  variable 
counting  variable 
summation  variable 


average  towing  time 
summation  variable 


counting  variable 
counting  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
user  type  choice 
=  vtypedes  in  BOATTYPE 
=  vtype  in  BOATTYPE 


counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
summation  variable 


unstot2 

unstot3 

unstot4 

unstotS 

unstot6 

unstot? 

uns total 

usechoic 

usedescl 

username 

userpass 

usetest 

uwdate 

uwtime 

vl 


integer 

integer 

integer 

integer 

integer 

integer 

integer 

text 

text 

text 

text 

text 


Used  In 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

vessel. prg 

intelrpt.prg 

star tup. prg 

startup. prg 

intelrpt.prg 

vessel. prg 

sartimes.prg 

sartimes.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

addsbd.prg 

addlbrd.prg 

add_sar.prg 

add  sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_bfd*prg 

add_sar.prg 
add  sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add«sar.prg 
add  sbd.prg 
addibrd.prg 
add_sar.prg 
add  sbd.prg 
add33rd.prg 
add_sar.prg 
add  sbd.prg 
addibrd.prg 
add_sar.prg 
add  sbd.prg 
addibrd.prg 
addlsar.prg 
add  sbd.prg 
addibrd.prg 
addlsar.prg 
add  sbd.prg 
addibrd.prg 
add_sar.prg 
add  sbd.prg 
addibrd.prg 
add_sar.prg 
add  sbd.prg 
addibrd.prg 
add_sar.prg 
add  sbd.prg 
addibrd.prg 
add  sar.prg 


Description 


sununation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
total  unsafe  conditions 
user  vessel  use  choice 
=  vusedesc  in  BOATUSE 
user  name  input 
user  password 
=  vuse  in  BOATUSE 

underway  date 
underway  time 
vslno  in  vessel 


vslhp  in  vessel 


vsluse  in  vessel 


vsltype  in  vessel 
vslprop  in  vessel 


vslhull  in  vessel 


vsleng  in  vessel 


vslfuel  in  vessel 


vslconst  in  vessel 


cmedecal  in  vessel 


cmeyuear  in  vessel 


vslname  in  vessel 


vsloffno  in  vessel 


homeport  in  vessel 


vslcall  in  vessel 


vslvalue  in  vessel 


Name 

Type 

Used  In 

Description 

v24 

text 

add_brd.prg 
add_sar.prg 
add  sbd.prg 

vslsuper  in  vessel 

v25 

text 

addibrd.prg 
add_sar.prg 
add  sbd.prg 

vslmasts  in  vessel 

v26 

text 

add_brd.prg 
add_sar.prg 
add  sbd.prg 

sailno  in  vessel 

v27 

text 

add_brd.prg 
add_sar.prg 
add  sbd.prg 

hlcolor  in  vessel 

v28 

text 

add33rd.prg 
add_sar.prg 
add  sbd.prg 

trcolor  in  vessel 

v29 

text 

add_brd.prg 
add_sar.prg 
add  sbd.prg 

slcolor  in  vessel 

v3 

text 

add^jrd.prg 
add_sar.prg 
add  sbd.prg 

vslhin  in  vessel 

v30 

text 

addlbfd-pi^g 
add_sar.prg 
add  sbd.prg 

cbcolor  in  vessel 

v31 

text 

add_brd.prg 
add_sar.prg 
add  sbd.prg 

dkcolor  in  vessel 

v32 

text 

add3)f<i*prg 
add_sar.prg 
add  sbd.prg 

vslmarks  in  vessel 

v4 

text 

addjard.prg 
add^sar.prg 
add  sbd.prg 

vslmake  in  vessel 

v5 

text 

addibrd.prg 
add_sar.prg 
add  sbd.prg 

vslmodel  in  vessel 

v6 

text 

addlJjrd.prg 
add_sar.prg 
add  sbd.prg 

vslyear  in  vessel 

v7 

integer 

add33rd.prg 
add_sar.prg 
add  sbd.prg 

vsltons  in  vessel 

v8 

integer 

add_br-*prg 
add_sar.prg 
.  add  sbd.prg 

vsllenft  in  vessel 

v9 

integer 

add_brd.prg 
add_sar.prg 
add  sbd.prg 

vsllenin  in  vessel 

vadult 

integer 

add3rd.prg 
add  sbd.prg 
mod_brd.prg 

adultpfd  in  boarding 

vale 

text 

quer_per.prg 
quer  vsl.prg 

operator  alcohol  conditio 

valgdate 

date 

add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod  sut.prg 

date  alongside 

valgtime 

time 

add_sar.prg 
add_sbd.prg 
add_sut,prg 
mod  sut.prg 

time  alongside 

validusr 

text 

startup. prg 

flag  variable 
vslhin  in  vessel 

vbadhin 

text 

mod_vhin.prg 
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Name 

Type 

Used  In 

rua.njr  njicFiJc  nj<  rMrjuv  n.anM/-\ariBrv4 

Description 

vbodate 

date 

add_brd.prg 

boarding  date 

vboday 

text 

add  sbd.prg 

modjbrd.prg 

quer^per.prg 

quervsl.prg 

add_Erd.prq 

boday  in  boarding 

vbodist 

text 

add  sbd.prg 
mod^rd.prg 
addZbrd.prg 

bodist  in  boarding 

vbolat 

real 

add  sbd.prg 
modjsrd.prg 
quer_per.prg 

latitude  position 

vbolong 

real 

quer_vsl.prg 

quer_per.prq 

longitude  position 

vboname 

text 

quer  vsl.prg 
add_Erd.prg 

boname  in  boarding 

vbono 

text 

add  sbd.prg 
mod3rd.prg 
quer_per.prg 
quer  vsl.prg 
add_Erd.prq 

boarding  report  number 

vboopfac 

text 

add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer  vsl.prg 
add_Erd.prg 

boopfac  in  boarding 

vborate 

text 

add_sbd.prg 
modDard.prg 
add  Drd.prq 

borate  in  boarding 

vboreml 

text 

add  sbd.prg 
mod35rd.prg 
quer_per.prg 
quer  vsl.prg 
add_Erd.prq 

boreml  in  boarding 

vborem2 

text 

add  sbd.prg 
mod3>rd.prg 
quer_per.prg 
quer  vsl.prg 
addlBrd.prq 

boremZ  in  boarding 

vboremS 

text 

add  sbd.prg 
mod_brd.prg 
quer_per.prg 
quer  vsl.prg 
add_Erd.prq 

borem3  in  boarding 

vbosrise 

time 

add  sbd.prg 
mod^Drd.prg 
quer_per.prg 
quer  vsl.prg 
add_Erd.prq 

bsunrise  in  boarding 

vbosset 

time 

add  sbd.prg 
mod_brd.prg 
add_brd.prq 

bsunset  in  boarding 

add  sbd.prg 
mod^rd.prq 

vbotime 

time 

add_brd.prq 

boarding  time 

vbounit 

text 

add  sbd.prg 
modllbrd.prg 
quer_per.prg 
quervsl.prg 
add  Erd.prq 

bounit  in  boarding 

vcall 

text 

add  sbd.prg 
mod_brd.prg 
addjbrd.prq 

vessel  call  sign 

add_sar.prg 

add_sbd.prg 
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Name 

vcbcolor 

vcelllng 

vchild 

vclouds 

vcmeyear 

vconstr 

vdate 

vdateos 

vdecal 

vdlstoff 

vdkcolor 

vdob 

vdvmoord 

vdvmoort 

vepic 

vetadate 

vfname 

vfoldno 

vhlcolor 


Type  Used  In 


Description 


text 

text 

integer 

text 

text 

text 

date 

date 

text 

integer 

text  . 

date 

date 

time 

text 

date 

text 

text 


text 


add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_sar.prg 

add_sbd.prg 

mod  sar.prg 

addjbrd.prg 

add  sbd.prg 

modjird.prg 

add_sar.prg 

add  sbd.prg 

addjDrd.prg 

add_sar.prg 

add  sbd.prg 

add33rd.prg 

add_sar.prg 

add_sbd.prg 

mod_vhin.prg 

quer_per..prg 

quer_vsl.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod  sut.prg 

add_bfd*pfg 

add_sar.prg 

add_sbd.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sar.prg 

add_sbd.prg 

quer_vsl.prg 

add.sar.prg 

add.sbd.prg 

add.sut.prg 

mod_sut.prg 

add_sar.prg 

add.sbd.prg 

add.sut.prg 

mod.sut.prg 

am.vint.prg 

querjjer.prg 

quer.vsl.prg 

add.sar.prg 

add_sbd.prg 

add_sut.prg 

mod.sut.prg 

amjint.prg 

ouerjser.prg 

quer.vsl.prg 

add.sar.prg 

add.sbd.prg 

add.sut.prg 

mod.sar.prg 

mod_sut.prg 

querjjer.prg 

quer  vsl.prg 

add_Erd.prg 

add_,sar.prg 

add_sbd.prg 


cabin  color 

ceiling  in  sar 

childpfd  in  baording 

clouds  in  sar 
erne  decal  year 

coded  vessel  construction 

intelligence  date 
on  scene  date 

erne  decal? 
distance  offshore 

deck  color 

date  of  birth 

date  distressed  vessel  mo 

time  distressed  vessel  mo 

epiccode  in  vslintel 
on  scene  eta  date 

intfname  in  perintel 
sar  folder  number 


hull  color 
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Name  Type 

vhome  text 

vimmed  text 

vintdate  date 


vintdob  date 
vintmi  text 
vintprn  text 
vintreml  text 

vintrem2  text 

vintremS  text 

viol54s  integer 
viol55s  integer 
viol56s  integer 
viol57s  integer 
viol58s  integer 
viol59s  integer 
violSOs  integer 
violGls  integer 
viol62s  integer 
viol63s  integer 
viol64s  integer 
viol65s  integer 
viol66s  integer 
viol67s  integer 
viol68s  integer 
vlname  text 


vltndesc  text 

vmarks  text 


vmasts  text 


vmaxop  integer 

vmaxoper  integer 

vmaxown  integer 

vmi  text 

vmucn  text 


Used  In  Description 


add_brd.prg  vessel  homeport 

add_sar .prg 

add_sbd.prg 

add_sar.prg  immediate  sar? 

add_sbd.prg 

mod_sar.prg 

quer_per.prg 

quer^vsl.prg 

am_pint.prg  pintdate  in  perintel 

am_pint.prg 

am_vint.prg 

quer_per.prg 

quer^vsl.prg 

am_pint.prg  intdob  in  perintel 

am_pint.prg  intmi  in  perintel 

quer^vsl.prg  user  input 

am_pint.prg  pintreml  in  perintel 

am_vint.prg 

am_pint.prg  pintrem2  in  perintel 

am_vint.prg 

am_pint.prg  pintremS  in  perintel 

am_vint.prg 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable • 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

violfreq.prg  counting  variable 

am_pint.prg  intlname  in  perintel 

quer_per.prg 
quer  vsl.prg 

inteirpt.prg  =  violdesc  in  VIOLS 

add_brd.prg  vessel  unusual  markings 

add_sar.prg 
add  sbd.prg 

addlbJ^d.prg  number  of  vessel  masts 

add_sar.prg 

add_sbd.prg 

add.brd.prg  comparison  variable 

add_sar.prg 

add_sbd.prg 

add  sbd.prg  comparison  variable 

add3rd.prg  comparison  variable 

add_sar.prg 
add_sbd.prg' 

quer_per.prg  middle  initial 

quer_vsl.prg 

add_sar.prg  multi-unit  case. number 

add_sbd.prg 

mod_sar.prg 

quer_per.prg 

quer  vsl.prg 

inteirpt.prg  =  violno  in  VIOLS 


vno 


text 


Name 

Type 

vobcount 

text 

vobsbody 

text 

vobscity 

text 

vobslat 

real 

vobslong 

real 

vobstate 

text 

voffno 

text 

vopaddr 

text 

vopcity 

text 

vopcrse 

text 

vopdob 

date 

vopfname 

text 

vopid 

integer 

voplname 

text 

Used  In  Description 


add_brd.prg  obscount  in  boarding 

add  sbd.prg 

mod^rd.prg 

add  ord.prg  obsbody  in  boarding 

add  sbd.prg 

modiprd.prg 

addjard.prg  obscity  in  boarding 

add  sbd.prg 

mod^rd.prg 

addDsi^ci^pt'g  latitude  position 

add  sbd.prg 

mod3rd*prg 

add_brd.prg  longitude  position 

add  sbd.prg 

modjjrd.prg 

add  brd.prg  obsstate  in  boarding 

add  sbd.prg 

mod_brd.prg 

add^rd'Prg  vessel  official  numbers 

add_sar.prg 

add_sbd.prg 

mod_vhin.prg 

quer_per.prg 

quer  vsl.prg 

add_Drd.prg  operator  street  address 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

querjper.prg 

quer  vsl.prg 

add_Drd.prg  operator  city  address 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

quer  vsl.prg 

add^brd.prg  operator  course  code 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

quer  vsl.prg 

add_brd.prg  operator  date  of  birth 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

quer  vsl.prg 

add_Drd.prg  operator  first  name 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

qUer  vsl.prg 

add_5rd.prg  operator  id  (system) 

add_sar.prg 

add_sbd.prg 

mod  owop.prg 

add_brd.prg  operator  last  name 

add_sar.prg 

add_sbd,prg 

mod_owop.prg 

quer_per.prg 

quer_vsl.prg 


Name  Type 


Used  In 


Description 


vopmi  text 

vopst  text 

voptelno  text 

vopzip  text 

voseta  time 

vostatus  text 

vostime  time 

vowaddr  text 


vowcity  text 


vowdob  date 


vowfname  text 


vowid  integer 

vowlname  text 


add_brd.prg 

ad<Csar.prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

quervsl.prg 

add_Brd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

quer  vsl.prg 

add_Drd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer_per .prg 

quer  vsl.prg 

add_Erd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

quer_vsl.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod  isut.prg 

add33rd.prg 

add  sbd.prg 

mod_brd.prg 

add^sar.prg 

add_sbd.prg 

add.sut.prg 

mod  sut.prg 

addjsrd.prg 

add.ownr.prg 

add.sar.prg 

add.sbd.prg 

mod  owop.prg 

add  brd.prg 

add.ownr.prg 

add.sar.prg 

add.sbd.prg 

mod  owop.prg 

quer  vsl.prg 

add_Drd.prg 

add.ownr.prg 

add.sar.prg 

add.sbd.prg 

mod.owop.prg 

quer  vsl.prg 

add.Erd.prg 

addlownr.prg 

add.sar.prg 

add.sbd.prg 

mod.owop.prg 

quer.vsl.prg 

quer  per. prg 

addLbrd.prg 

add.ownr.prg 

add.sar.prg 

add.sbd.prg 

mod_owop.prg 

quer.vsl.prg 


operator  middle  initial 

operator  state  address 

operator  telephone  number 

operator  zip  code 

on  scene  eta  time 

owstatus  in  boarding 
on  scene  time 

owner  street  address 

owner  city  address 

owner  date  of  birth 

owner  first  name 

owner  record  id  number 
owner  last  name 
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vn 


Name 

vowml 


vovmld 


vowst 


vowtelno 


vowzlp 


vpct2030 

vpct3040 

vpct4050 

vpctsoeo 

vpct6070 

vpct70 

vpct7080 

vpct71 

vpct76 

vpctSO 

vpct8090 

vpct82 

vpct84 

vpct86 

vpct88 

vpct90 

vpct9010 

vpct<00 

vpct<20 

vpct<60 

vpct<65 

vpct<70 

vpct<75 

vpct<80 

vpct<85 

vpct<90 

vj3Ct<95 

vpct>00 

vpct>100 

vperaddr 

vpercity 

vperdob 

vpermi 


text 


text 


text 


text 


text 


real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

text 

text 

date 

text 


Used  In 

add_brd.prg 

add_ownr.prg 

add_sar.prg 

adcLsbd.prg 

mod_owop.prg 

quervsl.prg 

add_Erd.prg 

add_brd.prg 

add_ownr.prg 

add_sar.prg 

add_sbd.prg 

add_sbd.prg 

mod_owop.prg 

mod_owop.prg 

add_brd.prg 

add_ownr.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer  vsl.prg 

add_Erd.prg 

add_ownr.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quervsl.prg 

add_Erd.prg 

add_ovmr.prg 

add_sar.prg 

add_sbd.prg 

mod^owop.prg 

quer  vsl.prg. 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

cmerpt.prg 

intelrpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

intelrpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

quer_per.prg 

quer_per.prg 

quer_per.prg 

quer_per.prg 


Description 
owner  m.'Iddle  initial 


owner  id  (system) 


owner  state  address 


owner  telephone  number 


owner  zip  code 


percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

oercentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

street  address 

city  address 

date  of  birth 

middle  initial 
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MUtHMU 


Name 

vperst 

vpertel 

vperzip 

vpfname 

vplname 

vreml 

vrem2 

vrem3 

vsailno 

vsardate 

vsarday 

vsarhin 

vsarlat 

vsarlong 

vs  a  mod 
vsarpob 

vsartime 

vseas 

vslcolor 

vslfound 

vslprr- 

vstolen 

vsumoord 


Type  Used  In 


Description 


text 

text 

text 

text 

text 

text 

text 

text 

text 


date 


text 

text 

real 

real 

text 

integer 

time 

text 

text 

text 

text 

text 

date 


quer_per.prg 
quer_per.prg 
quer_per.prg 
quer_per.prg 
quer_per.prg 
quer_per.prg 
quer_vsl.prg 
quer_per.prg 
quer_vsl.prg 
quer_per.prg 
quer  vsl.prg 
add_Erd.prg 
add_sar.prg 
add_sbd.prg' 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer_vsl.prg 
mod_sar.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add^sbd.prg 
mod_sar.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per,prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
mod  sar.prg 
add_bfd.prg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 
quer_per.prg 
quer^vsl.prg 
am_vint.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 


state  address 
telephone  number 
zip  code 
first  name 
last  name 

personnel  intelligence  re 
personnel  intelligence  re 
personnel  intelligence  re 
sail  number 


sar  date 


sar  day  of  the  week 

sarvhin  in  sar 
latitude  position 

longitude  position 

nature  of  distress 
personnel  on  board 

sar  time 

seas  in  sar 

sail  color 

flag  variable 
user  input 

stolen  in  vslintel 
date  sar  unit  moored 
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Name  Type 


Used  In 


Description 


vsumoort  time 


vsunrise  '  time 
vsunset  time 
vsuper  text 
vswells  text 


vtotl 

vtotlO 

vtotll 

vtotl2 

vtotl3 

vtot2 

vtot3 

vt;ot4 

vtotS 

vtot6 

vtot7 

VtotS 

vtot9 

vtotal 

vtowdate 


integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

date 


vtowtime  time 

vtrcolor  text 

vucn  text 


vunit  text 

vuns69  text 


vuns70  text 


vuns71  text 


addLsar.prg 

add_sbd.prg 

addlsut.prg 

modlsut.prg 

add_sar.prg 

addZsbd.prg 

mod_sar.prg 

add_sar.prg 

add_sbd.prg 

mod  sar.prg 

addjsrd.prg 

add_sar.prg 

add_sbd.prg 

add_sar.prg 

add_sbd.prg 

mod  sar.prg 

vioTfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod_sut.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

modlsut.prg 

addibrd.prg 

add_sar.prg 

add_sbd.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

quer_per.prg 

quer_vsl.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod  sut.prg 

addjjr<i*prg 

add  sbd.prg 

modjsrd'Prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add  sbd.prg 

modjbfd.prg 

querjer.prg 

quer  vsl.prg 

add_Erd.prg 

add  sbd.prg 

mod_brd*prg 

quer_per.prg 

quer_vsl.prg 


time  sar  unit  moored 


bsunrise  in  boarding 


bsunset  in  boarding 


vessel  superstructure 


swells  in  sar 


summation  variable 
summation  variable 
summation  variable 
sunmation  variable 
siuimation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
total  violations 
date  started  towing 


time  started  towing 


trim  color 


unit  case  number 


sar  unit  name 


unsafe  condition  69 


unsafe  condition  70 


unsafe  condition  71 


Name  Type  Used  In 


Description 


vuns72 

text 

vuns73 

text 

vuns74 

text 

vuns75 

text 

vuns76 

text 

vuns77 

text 

vuns78 

text 

vuns79 

text 

vuwdate 

date 

vuwtime 

time 

walue 

dollar 

vviol54 

text 

vviol55 

text 

add_brd.prg 

add_sbd.prg 

modJjrd'Prg 

quer_per.prg 

quer  vsl.prg 

add_brd.prg 

add  sbd.prg 

modJSrd.prg 

quer_per.prg 

add_Drd.prg 

add  sbd.prg 

mod_brd.prg 

quer_per.prg 

quervsl.prg 

add_Erd.prg 

add“sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Brd.prg 

add  sbd.prg 

mod_brd.prg 

querjper.prg 

quer  vsl.prg 

add_Brd.prg 

add  sbd.prg 

modibrd-prq 

quer_per.prg 

quer  vsl.prg 

add_Drd.prg 

add  sbd.prg 

modjbrd.prg 

quer_per.prg 

quer  vsl.prg 

add_brd.prg 

add  sbd.prg 

mod_brd.prg 

quer_per.prg 

quer_vsl.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod_sut.prg 

add_sar.prg 

add_sbd.prg 

add^sut.prg 

mod_sut.prg 

add_brd.prg 

add.sar.prg 

add  sbd.prg 

addjsrd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Brd.prg 

add  sbd.prg 

mod_brd.prg 

quer_per.prg 

quer_vsl.prg 


unsafe  condition  72 

unsafe  condition  73 

unsafe  condition  74 

unsafe  condition  75 

unsafe  condition  76 

unsafe  condition  77 

unsafe  condition  78 

unsafe  condition  79 

underway  date 

underway  time 

vessel  value 
violation  code  54 

violation  code  ^5 
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Name 

wiol56 


wiol57 


wiol58 


wiol59 


wiolfiO 


wioiei 


wiol62 


wiol6^ 


wiol64 


wiol65 


wiol66 


wiol67 


vviol68 


Type  Used  In 


Description 


text 


text 


text 


text 


text 


text 


text 


text 


text 


text 


text 


text 


text 


addjbrd.prg 

add_sbd.prg 

modJOrd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add  sbd.prg 

modCbrd.prg 

quer_per.prg 

quer  vsl.prg 

add_5rd.prg 

add  sbd.prg 

mod_prd.prg 

quer_per.prg 

add_Drd.prg 

add  sbd.prg 

mod^K'cl.prg 

quer_per.prg 

quer  vsl.prg 

add_Brd.prg 

add  sbd.prg 

modjsrd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add  sbd.prg 

mod^i^d.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add  sbd.prg 

mod_brd.prg 

querjjer.prg 

quer  vsl.prg 

add^Erd.prg 

add  sbd.prg 

mod_brd*prg 

quer_per.prg 

quervsl.prg 

add_Erd.prg 

add_sbd.prg 

m'djjrd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add  sbd.prg 

mod3rd.prg 

quer_per.prg 

quervsl.prg 

add_Erd.prg 

add  sbd.prg 

modjjrd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_jsbd.prg 

mod_Drd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add  sbd.prg 

modjjfd-prg 

quer_per.prg 

quer_vsl.prg 


violation  code  56 


violation  code  57 


violation  code  58 


violation  code  59 


violation  code  60 


violation  code  61 


violation  code  62 


violation  code  63 


violation  code  64 


violation  code  65 


violation  code  66 


violation  code  67 


violation  code  68 
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Name 

Type 

Used  In 

Description 

wisdist 

integer 

addLsar.prg 
add.  sbd.prg 
mod_i.ar.prg 

visdist  in  sar 

wreml 

text 

qu«‘*‘_per.prg 

quer_vsl.prg 

vessel  intelligence  remar 

vvrem2 

text 

quer_per.prg 

quer_vsl.prg 

vessel  intelligence  remar 

wremS 

text  ' 

quer_per.prg 
quer  vsl.prg 

vessel  intelligence  remar 

wsleng 

text 

add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod  vhin.prg 

coded  vessel  engine  compa 

wslft 

integer 

add_brd>prg 
add_sar.prg 
add_sbd.prg 
mod  vhin.prg 

vessel  length  (feet) 

wslfuel 

text 

addjsrd.prg 
add_sar.prg 
add_sbd.prg 
mod  vhin.prg 

coded  fuel  compartment 

wslhin 

text 

add_bi‘d*prg 

add_ownr.prg 

add_sar.prg 

add_sbd.prg 

mod_brd.prg 

mod_vhin.prg 

quer_per.prg 

vslhin  in  vessel 

quer  vsl.prg 

wslhp  text  add_Drd.prg  vessel  horsepower 

add..sar.prg 
add_sbd.prg  • 
mod  vhin.prg 

wslhull  text  addjjrd.prg  coded  vessel  hull  materia 

add_sar.prg 
add_sbd.prg 
mod  vhin.prg 

wslin  integer  add_prd.prg  vessel  length  (inches) 

add_sar.prg 
add_sbd.prg 
mod  vhin.prg 

wslmake  text  addJjrd'Prg  vessel  make 

add_sar.prg 
add_sbd.prg 
mod_vhin.prg 
quer_per.prg 
quer  vsl.prg 

wslmod  text  add.brd.prg  vslmodel  in  vessel 

add_sar.prg 
add_sbd.prg 
mod  vhin.prg 

wslname  text  addjsrd.prg  vessel  name 

add_sar.prg 
add_sbd.prg 
am  vint.prg 
mod_vhin.prg 
quer_per .prg 
quer  vsl.prg 
add_Erd.prg 
add_sar.prg 
add_sbd.prg 
mod„vhin.prg 
quer  jper. prg 
quer_vsl.prg 


wslno 


text 


vessel  number 


Name 


wslpob 


wslprop 


wslton 


wsltype 


wsluse 


walyear 


weapons 


winddir 


windapd 


weds day 
westtst 


year 

yrl981 

yrl981a 

yrl982 

yrl982a 

yrl983 

yrl983a 

yrl984 

yrl984a 

yrl985 

yrl98Sa 

yrl986 

yrl986a 

yrl987 

yrl987a 

yrl988 

yrl988a 

yrl989 

yrl989a 

yrl990 

yrl990a 

yrl991 

yrl991a 

yrl992 


Type  Used  In 


Description 


Integer 

text 

Integer 

text 

text 

text 

integer 


text 

text 

integer 

real 


integer 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 


addjsrd.prg 

add  sbd.prg 

modjjrd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sar.prg 

add_sbd.prg 

mod  vhin.prg 

add_brd.prg 

add_sar.f rg 

add_sbd.prg 

mod_vhin.prg 

add_sar.prg 

add  sbd.prg 

add_brd.prg 

mod  vhin.prg 

addjbrd.prg 

add_sar.prg 

add_sbd.prg 

mod  vhin.prg 

add^jrd.prg 

add_sar.prg 

add_sbd.prg 

mod_vhin.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer_vsi.prg 

add_sar.prg 

add:_sbd.prg 

mod^sar.prg 

add^sar.prg 

add_sbd.prg 

mod  sar.prg 

sarday.prg 

bomajor.prg 

bominor.prg 

sarma  jor.prg 

sarminor.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 


personnel  on  board 


coded  vessel  propulsion 
vsltons  in  vessel 
coded  vessel  type 

coded  vessel  use 

vessel  year 
weapons  in  boarding 


winddir  in  sar 


windspd  in  srar 


counting  variable 
nautical  position  coord. 


saryear 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 


192 


yrl992a 

yrl993 

yrl993a 

yrl994 

yrl994a 

yrl995 

yrl995a 

yrl996 

yrl996a 

yrl997 

yrl997a 

yrl998 

yrl998a 

yrl999 

yrl999a 

yr2000 

yr2000a 

yr2001 

yr2001a 

yr2002 

yr2002a 

yr2003 

yr2003a 

yr2004 

yr2004a 

yr2005 

yr2005a 

yr2006 

yr2006a 

yr2007 

yr2007a 

yr2008 

yr2008a 

yr2009 

yr2009a 

yr2010 

yr2010a 

yr20U 

yr2011a 

yr2012 

yr2012a 

yr71to75 

yr76to79 

yr80to81 

yr82to83 

yr84to85 

yr86to87 

yr88to89 

yr<1960 

yr<1965 

yr<1970 

yr<1975 

yr<1980 

yr<1985 

yr<1990 

yr<1995 

yr<2000 

yr>2000 

yrtestl 

yrtest2 


date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.jjrg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

sarday.prg 

sarday.prg 


ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
leap  year  test 
leap  year  test 


Program  Variables  Sorted  by  Where  Used 


Name  Type 


bl 

date 

b2 

time 

b3 

real 

b4 

real 

backup 

text 

choice 

text 

cont 

text 

difbo 

text 

fixopr 

text 

fixown 

text 

loadmenu 

text 

more 

text 

mropers 

text 

mrownrs 

text 

opl 

text 

oplO 

text 

opll 

integer 

op2 

text 

op  3 

text 

op4 

text 

op  5 

text 

op6 

text 

op7 

text 

op8 

text 

op9 

date 

owl 

text 

owlO 

text 

ow2 

text 

ow3 

text 

ow4 

text 

ow5 

text 

ow6 

text 

ow7 

text 

ow8 

text 

ow9 

date 

pg 

integer 

pgcount 

integer 

review 

text 

vl 

text 

vlO 

text 

vll 

text 

vl2 

text 

vl3 

text 

vl4 

text 

vl5 

text 

vl6 

text 

vl7 

text 

vl8 

text 

vl9 

text 

v2 

text 

v20 

text 

v21 

text 

v22 

text 

v23 

text 

v24 

text 

v25 

text 

v26 

text 

v27 

text 

v28 

text 

v29 

text 

v3 

text 

v30 

text 

v31 

text 

v32 

text 

v4 

text 

Description 


bodate  In  boarding 
botlme  in  boarding 
obslat  in  boarding 
belong  in  boarding 
flag  variable 
user  input  variable 
user  input 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
user  input 
user  input 
oplname  in  operator 
opcourse  in  operator 
opid  in  operator 
opfname  in  operator 
opmi  in  operator 
ooaddr  in  operator 
opcity  in  operator 
opstate  in  operator 
opzin  in  operator 
optelno  in  operator 
opdob  in  operator 
ownlname  in  owners 
ownid  in  owners 
ownfname  in  owners 
ownmi  in  owners 
ownaddr  in  owners 
owncity  in  owners 
ownstate  in  owners 
ownzip  in  owners 
owntelno  in  owners 
owndob  in  owners 
counting  variable 
counting  variable 
flag  variable 
vslno  in  vessel 
vslhp  in  vessel 
vsluse  in  vessel 
vsltype  in  vessel 
vslprop  in  vessel 
vslhull  in  vessel 
vsleng  in  vessel 
vslfuel  in  vessel 
vslconst  in  vessel 
cmedecal  in  vessel 
cmeyuear  in  vessel 
vslname  in  vessel 
vsloffno  in  vessel 
homeport  in  vessel 
vslcall  in  vessel 
vslvalue  in  vessel 
vslsuper  in  vessel 
vslmasts  in  vessel 
sailno  in  vessel 
hlcolor  in  vessel 
trcolor  in  vessel 
slcolor  in  vessel 
vslhin  in  vessel 
cbcolor  in  vessel 
dkcolor  in  vessel 
vslmarks  in  vessel 
vslmake  in  vessel 


Used  In  Name 


Type 


Description 


addjsrd.prg 


v5 

v6 

v7 

v8 

v9 

vadult 

vbodate 

vboday 

vbodlst 

vboname 

vbono 

vboopfac 

vborate 

vboreml 

vborem2 

vboremS 

vbosrise 

vbosset 

vbotime 

vbounit 

vcall 

vcbcolor 

vchild 

vcmeyear 

vconstr 

vdecal 

vdkcolor 

vhlcolor 

vhome 

vmarks 

vmasts 

vmaxop 

vmaxown 

vobcounfr 

vobsbody 

vobscity 

vobslat 

vobslong 

vobstate 

voffno 

vopaddr 

vopcity 

vopcrse 

vopdob 

vopfname 

vopid 

voplname 

vopmi 

vopst 

voptelno 

vopzip 

vostatus 

vowaddr 

vowcity 

vowdob 

vowfname 

vovlname 

vowmi 

vownid 


text 

text 

integer 

integer 

integer 

integer 

date 

text 

text 

text 

text 

text 

text 

text 

text 

text 

time 

time 

time 

text 

text 

text 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

real 

real 

text 

text 

text 

text 

text 

date 

text 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

date 

text 

text 

text 

text 


vslmodel  in  vessel 
vslyear  in  vessel 
vs  Icons  in  vessel 
vsllenft  in  vessel 
vsllenin  in  vessel 
adultpfd  in  boarding 
boarding  date 
boday  in  boarding 
bodist  in  boarding 
boname  in  boarding 
boarding  report  number 
boopfac  in  boarding 
borate  in  boarding 
boreml  in  boarding 
borem2  in  boarding 
boremS  in  boarding 
bsunrise  in  boarding 
bsunset  in  boarding 
boarding  time 
bounit  in  boarding 
vessel  call  sign 
cabin  color 
childpfd  in  baording 
erne  decal  year 
coded  vessel  construction 
erne  decal? 
deck  color 
hull  color 
vessel  homeport 
vessel  unusual  markings 
number  of  vessel  masts 
comparison  variable 
comparison  variable 
obscount  in  boarding 
obsbody  in  boarding 
obscity  in  boarding 
latitude  position 
longitude  position 
obsstate  in  boarding 
vessel  official  numbers 
operator  street  address 
operator  city  address 
operator  course  code 
operator  date  of  birth 
operator  first  name 
operator  id  (system) 
operator  last  name 
operator  middle  initial 
operator  state  address 
operator  telephone  number 
operator  zip  code 
owstatus  in  boarding 
owner  street  address 
owner  city  address 
owner  date  of  birth 
owner  first  name 
owner  last  name 
owner  middle  initial 
owner  id  (system) 
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1 


i, 


Used  In 
addjsrd.prg 


*1 


i' 

»' 

■I, 

li 

>1 

t' 

i< 

i 


Name 

Type 

vownid 

integer 

vowst 

text 

vowtelno 

text 

vowz^ 

text 

vsailno 

text 

vslcolor 

text 

vsuper 

text 

vtrcolor 

text 

vuns69 

text 

vuns70 

text 

vuns71 

text 

vuns72 

text 

vuns73 

text 

vuns74 

text 

vuns75 

text 

vuns76 

text 

vuns77 

text 

vuns7a 

text 

vuns79 

text 

walue 

dollar 

wiol54 

text 

vviol55 

text 

vviol56 

text 

wiol57 

text 

wioisa 

text 

wiol59 

text 

vviol60 

text 

vviol61 

text 

vviol62 

text 

vviol63 

text 

wiol64 

text 

wiol65 

text 

vviol66 

text 

wiol67 

text 

wiol68 

text 

wsleng 

text 

wslft 

integer 

wslfuel 

text 

wslhin 

text 

wslhp 

text 

wslhull 

text 

wslin 

integer 

wslmake 

text 

wslmod 

text 

wslname 

text 

wslno 

text 

wslpob 

integer 

wslprop 

wslton 

text 

integer 

wsltype 

text 

wsluse 

text 

wslyear 

text 

vweapons 

integer 

done 

text 

loadok 

text 

more 

text 

mrownrs 

text 

out 

text 

reenter 

text 

vowaddr 

text 

vowcity 

text 

vowdob 

date 

vowfname 

text 

vowlname 

text 

vowmi 

text 

Description 


owner  id  (system) 
owner  state  address 
owner  telephone  number 
owner  zip  code 
sail  number 
sail  color 

vessel  superstructure 
trim  color 
unsafe  condition  69 
unsafe  condition  70 
unsafe  condition  71 
unsafe  condition  72 
unsafe  condition  73 
unsafe  condition  74 
unsafe  condition  75 
unsafe  condition  76 
unsafe  condition  77 
unsafe  condition  73 
unsafe  condition  79 
vessel  value 
violation  code  54 
violation  code  55 
violation  code  56 
violation  code  57 
violation  code  58 
violation  code  59 
violation  code  60 
violation  code  61 
violation  code  62 
violation  code  63 
violation  code  64 
violation  code  65 
violation  code  66 
violation  code  67 
violation  code  68 
coded  vessel  engine  compa 
vessel  length  (feet) 
coded  fuel  compartment 
vslhin  in  vessel 
vessel  horsepower 
coded  vessel  hull  materia 
vessel  length  (inches) 
vessel  make 
vslmodel  in  vessel 
vessel  name 
vessel  number 
personnel  on  board 
coded  vessel  propulsion 
vs 1 tons  in  vessel 
coded  vessel  type 
coded  vessel  use 
vessel  year 
weapons  in  boarding 
flag  variable 
flag  variable 
flag  variable 
user  input 
flag  variable 
user  input 

owner  street  address 
owner  city  address 
owner  date  of  birth 
owner  first  name 
owner  last  name 
owner  middle  initial 


mm 


w 


Used  In 

Name 

Type 

Description 

add-ownr.pra 

vownld 

integer 

owner  id  (system) 

vowst 

text 

owner  state  address 

vowtelno 

text 

owner  telephone  number 

vows ip 

text 

owner  zip  code 

wslhin 

text 

vslhin  in  vessel 

add_sar.prq 

addlownr 

text 

user  input 

backup 

text 

flag  variable 

choice 

text 

user  input  variable 

cont 

text 

user  input 

difsar 

text 

flag  variable 

fixopr 

text 

flag  variable 

fixown 

text 

flag  variable 

loadmenu 

text 

flag  variable 

more 

text 

flag  variable 

mrownrs 

text 

user  input 

mrunits 

text 

user  input 

text 

oplname  in  operator 

oplO 

text 

opcourse  in  operator 

opll 

integer 

opid  in  operator 

op2 

text 

opfname  in  operator 

op3 

text 

opmi  in  operator 

op4 

text 

opaddr  in  operator 

op5 

text 

opcity  in  operator 

op6 

text 

opstate  in  operator 

op7 

text 

opzip  in  operator 

op8 

text 

optelno  in  operator 

op9 

date 

opdob  in  operator 

owl 

text 

ownlname  in  owners 

owlO 

text 

ownid  in  owners 

ow2 

text 

ownfname  in  owners 

ow3 

text 

ownmi  in  owners 

ow4 

text 

ownaddr  in  owners 

ow5 

text 

owncity  in  owners 

ow6 

text 

ownstate  in  owners 

ow7 

text 

ownzip  in  owners 

ow8 

text 

owntelno  in  owners 

ow9 

date 

owndob  in  owners 

pg 

integer 

counting  variable 

pgcount 

integer 

counting  variable 

review 

text 

flag  variable 

si 

date 

saraate  in  sar 

s2 

time 

sartime  in  sar 

33 

real 

sarlat  in  sar 

s4 

real 

sarlong  in  sar 

s5 

text 

sarnod  in  sar 

s6 

text 

sarvhin  in  sar 

sunits 

text 

user  input 

vl 

text 

vslno  in  vessel 

vlO 

text 

vslhp  in  vessel 

vll 

text 

vsluse  in  vessel 

vl2 

text 

vsltype  in  vessel 

vl3 

text 

vslprop  in  vessel 

vl4 

text 

vslhull  in  vessel 

vl5 

text 

vsleng  in  vessel 

vl6 

text 

vslfuel  in  vessel 

vl7 

text 

vslconst  in  vessel 

vl8 

text 

cmedecal  in  vessel 

vl9 

text 

cmeyuear  in  vessel 

v2 

text 

vslname  in  vessel 

v20 

text 

vsloffno  in  vessel 

v21 

text 

homeport  in  vessel 

v22 

text 

vslcall  in  vessel 

v23 

text 

vslvalue  in  vessel 

v24 

text 

vslsuper  in  vessel 

v25 

text 

vslmasts  in  vessel 

I 


Name  Type 


Description 


v26 

v27 

v28 

v29 

v3 

v30 

v31 

v32 

v4 

v5 

v6 

v7 

va 

v9 

valgdate 

valqtime 

VC  all 

vcbcolor 

vceillng 

vclouds 

vcmeyear 

vconstr 

vdateos 

vdecal 

vdistoff 

vdkcolor 

vdvmoord 

vdvmoort 

vetadate 

vfoldno 

vhlcolor 

vhome 

vlmmed 

vmarks 

vmasts 

vmaxop 

vmaxown 

vmucn 

voffno 

vopaddr 

vopcity 

vopcrse 

vopdob 

vopfname 

vopid 

voplname 

vopmi 

vopst 

voptelno 

vopzip 

voseta 

VOS time 

vowaddr 

vowcity 

vowdob 

vowfname 

vowlname 

vowmi 

vownid 

vowst 

vowtelno 

vowzip 

vsailno 

vsardate 

vsarday 


text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

integer 

date 

time 

text 

text 

text 

text 

text 

text 

date 

text 

integer 

text 

date 

time 

date 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

date 

text 

integer 

text 

text 

text 

text 

text 

time 

time 

text 

text 

date 

text 

text 

text 

text 

text 

text 

text 

text 

date 

text 


sailno  in  vessel 
hlcolor  in  vessel 
trcolor  in  vessel 
slcolor  in  vessel 
vslhin  in  vessel 
cbcolor  in  vessel 
dkcolor  in  vessel 
vslmarks  in  vessel 
vslmake  in  vessel 
vslmodel  in  vessel 
vslyear  in  vessel 
vsltons  in  vessel 
vsllenft  in  vessel 
vsllenin  in  vessel 
date  alongside 
time  alongside 
vessel  call  sign 
cabin  color 
ceiling  in  sar 
clouds  in  sar 
erne  decal  year 
coded  vessel  construction 
on  scene  date 
erne  decal? 
distance  offshore 
deck  color 

date  distressed  vessel  mo 
time  distressed  vessel  mo 
on  scene  eta  date 
sar  folder  number 
hull  color 
vessel  homeport 
immediate  sar? 
vessel  unusual  markings 
number  of  vessel  masts 
comparison  variable 
comparison  variable 
multi-unit  case  number 
vessel  official  numbers 
operator  street  address 
operator  city  address 
operator  course  code 
operator  date  of  birth 
operator  first  name 
operator  id  (system) 
operator  last  name 
operator  middle  initial 
operator  state  address 
operator  telephone  number 
operator  zip  code 
on  scene  eta  time 
on  scene  time 
owner  street  address 
owner  city  address 
owner  date  of  birth 
owner  first  name 
owner  last  name 
owner  middle  initial 
owner  id  (system) 
owner  state  address 
owner  telephone  number 
owner  zip  code 
sail  number 
sar  date 

sar  day  of  the  week 


Used  In  Name 


Type 


Description 


adcLsar.prg  vsarlat  real 

vsarlong  real 

vsarnod  text 

vsarpob  integer 

vsartime  time 

vseas  text 

vslcolor  text 

wsltype  text 

vsumoord  date 

vsumoort  time 

vsunrise  time 

vsunset  time 

vsuper  text 

vswells  text 

vtowdate  date 

vtowtime  time 

vtrcolor  text 

vucn  text 

vunit  text 

vuwdate  date 

vuwtime  time 

walue  dollar 

wisdist  integer 

vvsleng  text 

wslft  integer 

wslfuel  text 

wslhin  text 

wslhp  text 

wslhull  text 

wslin  integer 

wslmake  text 

wslmod  text 

wslname  text 

wslno  text 

wslprop  text 

wslton  integer 

wsluse  text 

wslyear  text 

vwinddir  text 

vwindspd  text 

add_sbd.prg  addl.opr  text 

addl_own  text 

bl  date 

b2  time 

b3  real 

b4  real 

backup  text 

choice  text 

cont  text 

difbo  text 

difsar  text 

fixopr  text 

fixown  text 

loadmenu  text 

more  text 

mropers  text 

mrownrs  text 

mrunits  text 

opl  text 

oplO  text 

opll  integer 

op2  text 

op3  text 

op4  text 

op5  text 


latitude  position 

longitude  position 

nature  of  distress 

personnel  on  board 

sar  time 

seas  in  sar 

sail  color 

coded  vessel  type 

date  sar  unit  moored 

time  sar  unit  moored 

bsunrise  in  boarding 

bsunset  in  boarding 

vessel  superstructure 

swells  in  sar 

date  started  towing 

time  started  towing 

trim  color 

unit  case  number 

sar  unit  name 

underway  date 

underway  time 

vessel  value 

visdist  in  sar 

coded  vessel  engine  compa 

vessel  length  (feet) 

coded  fuel  compartment 

vslhin  in  vessel 

vessel  horsepower 

coded  vessel  hull  materia 

vessel  length  (inches) 

vessel  make 

vslmodel  in  vessel 

vessel  name 

vessel  number 

coded  vessel  propulsion 

vsltons  in  vessel 

coded  vessel  use 

vessel  year 

winddir  in  sar 

windspd  in  sar 

user  input 

user  input 

bodate  in  boarding 

botime  in  boarding 

obslat  in  boarding 

belong  in  boarding 

flag  variable 

user  input  variable 

user  input  • 

flag  variable 

flag  variable 

flag  variable 

flag  variable 

flag  variable 

flag  variable 

user  input 

user  input 

user  input 

oplname  in  operator 

opcourse  in  operator 

opid  in  operator 

opfname  in  operator 

opmi  in  operator 

opaddr  in  operator 

opoity  in  operator 
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Uied  In  Name  Type 


adcLsbd.prg  op6  text 

op7  text 

op8  text 

op9  date 

owl  text 

owlO  text 

ow2  text 

ow3  text 

ow4  text 

owS  text 

ow6  text 

ow7  text 

ow8  text 

ow9  date 

pg  integer 

pgcount  integer 

review  text 

si  date 

s2  time 

s3  real 

s4  real 

s5  text 

s6  text 

sunits  text 

vl  text 

vlO  text 

vll  text 

vl2  text 

vl3  text 

vl4  text 

vis  text 

vl6  text 

vl7  text 

vl8  text 

vl9  text 

v2  text 

v20  text 

v21  text 

v22  text 

v23  text 

v24  text 

v25  text 

v26  text 

v27  text 

v28  text 

v29  text 

v3  text 

v30  text 

v31  text 

v32  text 

v4  text 

v5  text 

v6  text 

v7  integer 

v8  integer 

v9  integer 

vadult  integer 

valgdate  date 

valgtime  time 

vbodate  date 

vboday  text 

vbodist  text 

vboname  text 

vbono  text 

vboopfac  text 


Description 


opstate  in  operator 
opzlp  In  operator 
optelno  in  operator 
opdob  in  operator 
ownlname  in  owners 
ownid  in  owners 
ownfname  in  owners 
ownmi  in  owners 
ownaddr  in  owners 
owncity  in  owners 
ownstate  in  owners 
ownzip  in  owners 
owntelno  in  owners 
owndob  in  owners 
counting  variable 
counting  variable 
flag  variable 
sardate  in  sar 
sartime  in  sar 
sarlat  in  sar 
sarlong  in  sar 
sarnod  in  sar 
sarvhin  in  sar 
user  input 
vslno  in  vessel 
vslhp  in  vessel 
vsluse  in  vessel 
vsltype  in  vessel 
vslprop  in  vessel 
vslnull  in  vessel 
vsleng  in  vessel 
vslfuel  in  vessel 
vslconst  in  vessel 
cmedecal  in  vessel 
cmeyuear  in  vessel 
vslname  in  vessel 
vsloffno  in  vessel 
homeport  in  vessel 
vslcall  in  vessel 
vs lvalue  in  vessel 
vslsuper  in  vessel 
vslmasts  in  vessel 
sailno  in  vessel 
hlcolor  in  vessel 
trcolor  in  vessel 
slcolor  in  vessel 
vslhin  in  vessel 
cbcolor  in  vessel 
dkcolor  in  vessel 
vslmarks  in  vessel 
vslmake  in  vessel 
vslmodel  in  vessel 
vslyear  in  vessel 
vsltons  in  vessel 
vsllenft  in  vessel 
vsllenin  in  vessel 
adultpfd  in  boarding 
date  alongside 
time  alongside 
boarding  date 
boday  in  boarding 
bodist  in  boarding 
boname  in  boarding 
boarding  report  number 
boopfac  in  boarding 
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Name  Type 


Description 


vborate 

vboreml 

vborem2 

vboremS 

vbosrise 

vbosset 

vbotime 

vbounit 

vcall 

vcbcolor 

vcelling 

vchlld 

vclouds 

vcmeyear 

vconstr 

vdateos 

vdecal 

vdistoff 

^'dkcolor 

vdvmoord 

vdvmoort 

vetadate 

vfoldno 

vhlcolor 

vhome 

vimmed  ' 

vmarks 

vmasts 

vmaxop 

vmaxoper 

vmaxown 

vmucn 

vobcount 

vobsbody 

vobsclty 

vobslat 

vobslong 

vobstate 

voffno 

vopaddr 

vopcity 

vopcrse 

vopdob  ■ 

vopfname 

vopid 

voplname 

vopmi 

vopst 

voptelno 

vopzlp 

voseta 

vostatus 

VOS time 

vowaddr 

vowcity 

vowdob 

vowfname 

vowlname 

vowmi 

vownid 

vownid 

vowst 

vowtelno 

vowzip 

vsailno 


text 

text 

text 

text 

time 

time 

time 

text 

tex^ 

text 

text 

integer 

text 

text 

text 

date 

text 

integer 

text 

date 

time 

date 

text 

text 

text 

text 

text 

text 

integer 

integer 

integer 

text. 

text 

text 

text 

real 

real 

text 

text 

text 

text 

text 

date 

text 

integer 

text 

text 

text 

text 

text 

time 

text 

time 

text 

text 

date 

text 

text 

text 

text 

integer 

text 

text 

text 

text 


borate  in  boarding 
boreml  in  boarding 
borem2  in  boarding 
boremS  in  boarding 
bsunrise  in  boarding 
bsunset  in  boarding 
boarding  time 
bounit  in  boarding 
vessel  call  sign 
cabin  color 
ceiling  in  sar 
childpzd  in  baording 
clouds  in  sar 
erne  decal  year 
coded  vessel  construction 
on  scene  date 
erne  decal? 
distance  offshore 
deck  color 

date  distressed  vessel  mo 
time  distressed  vessel  mo 
on  scene  eta  date 
sar  folder  number 
hull  color 
vessel  homeport 
immediate  sar? 
vessel  unusual  markings 
number  of  vessel  masts 
comparison  variable 
comparison  variable 
comparison  variable 
multi-unit  case  number 
obscount  in  boarding 
obsbody  in  boarding 
obscity  in  boarding 
latitude  position 
longitude  position 
obsstate  in  boarding 
vessel  official  numbers 
operator  street  address 
operator  city  address 
operator  course  code 
operator  date  of  birth 
operator  first  name 
operator  id  (system) 
operator  last  name 
operator  middle  initial 
operator  state  address 
operator  telephone  number 
operator  zip  code 
on  scene  eta  time 
owstatus  in  boarding 
on  scene  time 
owner  street  address 
owner  city  address 
owner  date  of  birth 
owner  first  name 
owner  last  name 
owner  middle  initial 
owner  id  (system) 
owner  id  (system) 
owner  state  address 
owner  telephone  number 
owner  zip  code 
sail  number 
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Uied  In  Name  Type 


add^sbd.prg  vsardate  date 
vaarday  text 

vsarlat  real 

vsarlong  real 

vsarnod  text 

vsarpob  integer 

vsartime  time 

vseas  text 

vslcolor  text 

wsltype  text 

vsumoord  date 

vsumoort  time 

vsunrise  time 

vsunset  time 

vsuper  text 

vswells  text 

vtowdate  date 

vtowtime  time 

vtrcolor  text 

vucn  text 

vunit  text 

vuns69  text 

vuns70  text 

vuns71  text 

vuns72  text 

vuns73  text 

vuns74  text 

vuns75  text 

vuns76  text 

vuns77  text 

vuns78  text 

vuns79  text 

vuwdate  date 

vuwtime  time 

walue  dollar 

wiol54  text 

wiolSS  text 

wiol56  text 

wiol57  text 

wiol58  text 

wiol59  text 

wioieO  text 

wiol61  text 

wiol62  text 

wiol63  text 

wiol64  text 

wiol65  text 

wiol66  text 

wiol67  text 

wiol68  text 

wisdist  integer 

wsleng  text 

wslft  integer 

wslfuel  text 

wslhin  text 

wslhp  text 

wslhull  text 

wslin  integer 

wslmake  text 

wslmod  text 

wslname  text 

wslno  text 

wslpob  integer 

wslprop  text 

wslton  integer 
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Description 


sar  date 

sar  day  of  the  week 
latitude  position 
longitude  position 
nature  of  distress 
personnel  on  board 
sar  time 
seas  in  sar 
sail  color 
coded  vessel  type 
date  sar  unit  moored 
time  sar  unit  moored 
bsunrise  in  boarding 
bsunset  in  boarding 
vessel  superstructure 
swells  in  sar 
date  started  towing 
time  started  towing 
trim  color 
unit  case  number 
sar  unit  name 
unsafe  condition  69 
unsafe  condition  70 
unsafe  condition  71 
unsafe  condition  72 
unsafe  condition  73 
unsafe  condition  74 
unsafe  condition  75 
unsafe  condition  76 
unsafe  condition  77 
unsafe  condition  78 
unsafe  condition  79 
underway  date 
underway  time 
vessel  value 
violation  code  54 

violation  code  55  > 

violation  code  56  | 

violation  code  57 

violation  code  58  | 

violation  code  59 

violation  code  60 

violation  code  61 

violation  code  62 

violation  code  63  ^ 

violation  code  64  • 

violation  code  65  J 

violation  code  66 

violation  code  67 

violation  code  68 

visdist  in  sar  | 

coded  vessel  engine  compa  ; 

vessel  length  (feet)  2 

coded  fuel  compartment  i 

vslhin  in  vessel 

vessel  horsepower  j 

coded  vessel  hull  materia  Q 

vessel  length  (inches)  Q 

vessel  make  | 

vslmcdel  in  vessel  i 

vessel  name  r 

vessel  number  .  ^ 

personnel  on  board  >, 

coded  vessel  propulsion  J 

vsltons  in  vessel  j 

I 

k 


Used  In  Name 


Type 


Description 


addLsbd.prg  wsluse  text 

wslyear  text 

weapons  integer 

winddir  text 

windspd  text 

add.sut.prg  done  text 

mrunits  text 

valgdate  date 

valgtime  time 

vdateos  date 

vdvmoord  date 

vdvmoort  time 

vetadate  date 

vfoldno  text 

voseta  time 

VOS time  time 

vsumoord  date 

vsumoort  time 

vtowdate  date 

vtowtime  time 

vunit  text 

vuwdate  date 

vuwtime  time 

am_pint.prg  choice  text 

correct  text 

more  text 

mrintel  text 

reenter  text 

vfname  text 

vintdate  date 

vintdate  date 

vintdob  date 

vintmi  text 

vintreml  text 

vintrem2  text 

vintremS  text 

vlname  text 

am_vint.prg  choice  text 

correct  text 

fixvsl  text 

more  text 

mrintel  text 

reenter  text 

vepic  text 

vintdate  date 

vintreml  text 

vintrem2  text 

vintremS  text 

vstolen  text 

wslname  text 

boarding. prg  datediff  integer 

enddate  date 

numrows  integer 

strtdate  date 

bomajor.prg  datdiff  integer 

easttst  real 

enddate  date 

inarea  integer 

inpct  real 

northtst  real 

outarea  integer 

outpct  real 

southtst  real 

strtdate  date 

temppct  real 

westtst  real 


coded  vessel  use 
vessel  year 
weapons  in  boarding 
winddir  in  sar 
windspd  in  sar 
flar  variable 
user  input 
dat?  alongside 
time  alongside 
on  scene  date 
date  distressed  vessel  mo 
time  distressed  vessel  mo 
on  scene  eta  date 
sar  folder  number 
on  scene  eta  time 
on  scene  time 
date  sar  unit  moored 
time  sar  unit  moored 
date  started  towing 
time  started  towing 
sar  unit  name 
underway  date 
underway  time 
user  input 
user  input 
flag  variable 
user  input 
user  input 
intfname  in  perintel 
pintdate  in  perintel 
intdate  in  vs lintel 
intdob  in  perintel 
intmi  in  perintel 
pintreml  in  perintel 
pintrem2  in  perintel 
pintremS  in  perintel 
intlname  in  perintel 
user  input 
user  input 
input 

Aj  variable 
u  er  input 
user  input 
epiccode  in  vslintel 
intdate  in  vslintel 
vremarkl  in  vslintel 
vremark2  in  vslintel 
vremarkS  in  vslintel 
stolen  in  vslintel 
vessel  name 
date  difference 
ending  date 
counting  variable 
starting  date 
date  difference 
nautical  position  coord, 
ending  date 
summation  variable 
percentage 

nautical  position  coord, 
summation  variable 
percentage 

nautical  fsition  coord, 
starting  date 
percentage 

nautical  position  coord. 
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bomlnor.prg 


brd_main.prg 

cmerpt.prg 


daynight.prg 


datadiff 

datediff 

easttst 

enddate 

Inarea 

Inpct 

northtst 

outarea 

outpct 

southtst 

strtdate 

temppct 

westtst 

pcik6 

after90 

before70 

cmecount 

datediff 

enddate 

pct7175 

pct7679 

pctSOSl 

pct8283 

pct8485 

pct8687 

pct8889 

pctcme 

pctgt90 

pctit70 

strtdate 

totbrds 

vpct70 

vpct71 

vpct76 

\^ct80 

vpct82 

vpct84 

vpct86 

vpct88 

vpct90 

yr71to75 

yr76to79 

yrSOtoSl 

yr82to83 

yr84to85 

yr86to87 

yr88to89 

datediff 

daybrd 

daysar 

enddate 

nitebrd 

nitesar 

pctdayb 

pctdays 

pctniteb 

pctnites 

strtdate 

totbrds 

totsars 


integer 

integer 

real 

date 

integer 

real 

real 

integer 

real 

real 

date 

real 

real 

inteoer 

integer 

integer 

integer 

integer 

date 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

date 

integer 

real 

real 

real 

real 

real 

real 

real 

real 

real 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

date 

integer 

integer 

real 

real 

real 

real 

date 

integer 

integer 


date  difference 
date  difference 
nautical  position  coord, 
ending  date 
counting  variable 
percentage 

nautical  position  coord, 
counting  variable 
percentage 

nautical  position  coord, 
starting  date 
percentage 

nautical  position  coord. 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

date  difference 

ending  date 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

starting  date 

counting  variable 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage  ' 

percentage 

percentage 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

date  difference 

counting  variable 

counting  variable 

ending  date 

counting  variable 

counting  variable 

percentage 

percentage 

percentage 

percentage 

starting  date 

total  boardings 

total  sars 


wnw 


"Fir 


VMV 


^QRI 


Used  In 


Name 


Type 


eplcdump.prg 


Inmedsar.prg 


Inpmain.prg 

inc^main.prg 

intelrpt.prg 


datediff 

edscl 

edsc2 

edsc3 

edsc4 

enddate 

eplcnum 

eplctest 

pcttempl 

pcttemp2 

strtdate 

totepics 

datediff 

enddate 

notimmed 

numrows 

pctimmed 

pctimmed 

pctnotim 

pctnotim 

strtdate 

totimmed 

totsars 

pick2 

picks 

code 

constrds 

consttst 

datediff 

enddate 

engdescr 

engtst 

fdesc 

fueltst 

hdesc 

hulltst 

len2030 

len3040 

len4050 

lenSOSO 

len6070 

len7080 

lena090 

len90100 

len<20 

len>100 

numrows 

pct2030 

pct3040 

pct4050 

pctsoeo 

pct6070 

pct7080 

pct8090 

pct9010 

pct90100 

pct<00 

pct<20 

pct<60 

pct<65 

pct<70 

pct<75 

pct<80 

pct<85 

pct<90 


integer 

text 

text 

text 

text 

date 

integer 

text 

real 

real 

date 

integer 

integer 

date 

integer 

integer 

real 

r'.al 

real 

real 

date 

integer 

integer 

integer 

integer 

integer 

text 

text 

integer 

date 

text 

text 

text 

text 

text 

text 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 


Description 


date  difference 
=  epicdscl  in  VSLINTEL 
X  epicdsc2  in  VSLINTEL 
=  epicdsc3  in  VSLINTEL 
=  epicdsc4  in  VSLINTEL 
ending  date 
counting  variable 
=  epiccode  in  VSLINTEL 
%  epiccode  /  total  vsls 
%  epiccode  /  total  vsls 
starting  date 
counting  variable 
date  difference 
ending  date 

non- immediate  SAR  Cases 
counting  variable 
%  immediate  SAR  cases 
percentage 

%  non- immediate  SAR  Cases 

percentage 

starting  date 

counting  variable 

counting  variable 

menu  variable 

menu  variable 

input  variable 

=  consdesc  in  CONSTR 

=  constype  in  CONSTR 

date  difference 

ending  date 

=  ecomptyp  in  ENGCOMP 

=  e comp type  in  ENGCOMP 

=  fcompdes  in  FUELCOMP 

=  fcomptyp  in  FUELCOMP 

s  hmatdesc  in  HULLMAT 

=  hmattype  in  HULLMAT 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 
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Uied  In 
Intelrpt.prg 


modmain.prg 


Name  Type 


Description 


pct<95 

pct>00 

pct>100 

prdesc 

proptst 

strcdate 

sumconst 

sumeng 

sumfuel 

sumhull 

sumprop 

sumcype 

sumuse 

totbrds 

totvlols 

totvlols 

tvl 

tvlO 

tv2 

tv20 

tv3 

tv30 

tv4 

tv5 

typdescl 

typetest 

usedescl 

usetest 

vltndesc 

vno 

vpct2030 

vpct3040 

vpct4050 

vpctsoeo 

vpct6070 

vpct7080 

vpct8090 

vpct9010 

vpct<00 

vpct<20 

vpct<60 

vpct<65 

vpct<70 

vpct<75 

vpct<80 

vpct<85 

vpctOO 

vpct<95 

vpct>00 

vpct>100 

yr<1960 

yr<1965 

yr<1970 

yr<1975 

yr<1980 

yr<1985 

yr<1990 

yr<1995 

yr<2000 

yr>2000 

plck3 


real 

real 

real 

text 

text 

date 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

text 

text 

text 

text 

text 

text 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

integer 

integer 

integer 

integer 

integer 


percentage 

percentage 

percentage 

3  propdesc  in  BOATPROP 
a  prop type  in  BOATPROP 
starting  date 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
sununation  variable 
counting  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
=  vtypedes  in  BOATTYPE 
=  vtype  in  BOATTYPE 
=  vusedesc  in  BOATUSE 
=  vuse  in  BOATUSE 
=  violdesc  in  VIOLS 
=  violno  in  VIOLS 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
menu  variable 


irwJTWVW  vrw  V-w  v-mif 


Used  In 
modjsrd.prg 


Name 

Type 

bl 

date 

bl4 

text 

b24 

text 

b45 

text 

blO 

text 

bll 

text 

bl2 

real 

bl3 

real 

bis 

text 

bl6 

text 

bl7 

text 

bl8 

text 

bl9 

text 

b2 

time 

b20 

text 

b21 

text 

b22 

text 

b23 

text 

b25 

text 

b26 

text 

b27 

text 

b28 

text 

b29 

text 

b30 

text 

b31 

text 

b32 

text 

b33 

text 

b34 

text 

b35 

text 

b36 

text 

b37 

text 

b38 

text 

b39 

text 

b40 

text 

b41 

text 

b42 

text 

b43 

text 

b44 

text 

b46 

text 

b47 

text 

b48 

text 

b49 

time 

bS 

integer 

bSO 

time 

bSl 

text 

b52 

integer 

be 

integer 

b7 

text 

b8 

text 

b9 

text 

chk  bin 

text 

chk  name 

text 

correct 

text 

er 

text 

er 

text 

error 

text 

more 

text 

mrvsls 

text 

pg  , 

integer 

review 

text 

vadult 

integer 

vbodate 

date 

vboday 

text 

vbodist 

text 

vboname 

text 

Description 


bodate  In  boarding 
viol54  in  boarding 
viol64  in  boarding 
bounit  in  boarding 
obscity 

obsstate  in  boarding 
obslat  in  boarding 
obslong  in  boarding 
viol55 

viol56  in  boarding 
viol57  in  boarding 
violSS  in  boarding 
viol59  in  boarding 
botime  in  boarding 
viol61  in  boarding 
violSl  in  boarding 
viol62  in  boarding 
viol63  in  boarding 
viol65  in  boarding 
viol66  in  boarding 
viol67  in  boarding 
viol68  in  boarding 
uns69  in  boarding 
uns70  in  boarding 
uns71  in  boarding 
uns72  in  boarding 
uns73  in  boarding 
uns74  in  boarding 
uns75  in  boarding 
uns76  in  boarding 
uns77  in  boarding 
uns78  in  boarding 
uns79  in  boarding 
boreml  in  boarding 
borem2  in  boarding 
borem3  in  boarding 
boname  in  boarding 
borate  in  boarding 
bodist  in  boarding 
boopfac  in  boarding 
boday  in  boarding 
bsunrise  in  boarding 
adultpfd  in  boarding 
bsunset  in  boarding 
bovhin  in  boarding 
weapons  in  boarding 
childpfd  in  boarding 
owstatus  in  boarding 
obsbody  in  boarding 
obscount  in  boarding 
flag  variable 
flag  variable 
user  input 
user  input 
flag  variable 
flag  variable 
flag  variable 
user  input 
counting  variable 
flag  variable 
adultpfd  in  boarding 
boarding  date 
boday  in  boarding 
bodist  in  boarding 
boname  in  boarding 
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Used  In 
modJsrd.prg 


mod_owop.prg 


Name 

Type 

vbono 

text 

vboopfac 

text 

vborate 

text 

vboreml 

text 

vborem2 

text 

vborem3 

text 

vbosrise 

time 

vbosset 

time 

vbotime 

time 

vbounit 

text 

vchild 

integer 

vobcount 

text 

vobsbody 

text 

vobscity 

text 

vobslat 

real 

vobslong 

real 

vobstate 

text 

vostatus 

text 

vuns69 

text 

vuns70 

text 

vuns71 

text 

vuns72 

text 

vuns73 

text 

vuns74 

text 

vuns75 

text 

vuns76 

text 

vuns77 

text 

vuns78 

text 

vuns79 

text 

vviol54 

text 

vviol55 

text 

vviol56 

text 

vviol57 

text 

vviol58 

text 

wiol59 

text 

vviol60 

text 

vviol61 

text 

vviol62 

text 

vviol63 

text 

vviol64 

text 

vviol65 

text 

vviol66 

text 

vviol67 

text 

vviol68 

text 

wslhin 

text 

wslpob 

integer 

weapons 

integer 

chk  ownr 

text 

choice 

text 

choice 

integer 

er 

text 

error 

text 

error 

text 

go 

text 

nmchange 

text 

opl 

text 

oplO 

text 

opll 

integer 

op2 

text 

op3 

text 

op4 

text 

op5 

text 

op6 

text 

op7 

text 

op8 

text 

Description 


boarding  report  number 
boopfac  in  boarding 
borate  in  boarding 
boreml  in  boarding 
borem2  in  boarding 
borem3  in  boarding 
bsunrise  in  boarding 
bsunset  in  boarding 
boarding  time 
bounit  in  boarding 
childpfd  in  baording 
obscount  in  boarding 
obsbody  in  boarding 
obscity  in  boarding 
latitude  position 
longitude  position 
obsstate  in  boarding 
owstatus  in  boarding 
unsafe  condition  69 
unsafe  condition  70 
unsafe  condition  71 
unsafe  condition  72 
unsafe  condition  73 
unsafe  condition  74 
unsafe  condition  75 
unsafe  condition  76 
unsafe  condition  77 
unsafe  condition  78 
unsafe  condition  79. 
violation  code  54 
violation  code  55 
violation  code  56 
violation  code  57 
violation  code  58 
violation  code  59 
violation  code  60 
violation  code  61 
violation  code  62 
violation  code  63 
violation  code  64 
violation  code  65 
violation  code  66 
violation  code  67 
violation  code  68 
vslhin  in  vessel 
personnel  on  board 
weapons  in  boarding 
flag  variable 
user  input  variable 
user  input 
flag  variable 
flag  variable 
user  input 
user  input 
flag  variable 
oplname  in  operator 
opcour.se  in  operator 
op id  in  operator 
op f name  in  operator 
opmi  in  operator 
opaddr  in  operator 
opcity  in  operator 
opstate  in  operator 
opzip  in  operator 
optelno  in  operator 
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WnmUWWWi 


Used  In 
mocLowop.prg 


mod_sar.prg 


Name 

op9 

opchange 

opfound 

opid 

owl 

owlO 

ow2 

ow3 

ow4 

ow5 

ow6 

ow7 

ow8 

ow9 

owchange 

owfound 

vopaddr 

vopcity 

vopcrse 

vopdob 

vopfname 

vopld 

voplname 

vopmi 

vopst 

voptelno 

vopzip 

vowaddr 

vowcity 

vowdob 

vowfname 

vowlname 

vowmi 

vownid 

vownid 

vowst 

vowtelno 

vowzlp 

change 

correct 

er 

more 

mrsar 

oldfold 

reenter 

si 

slO 

sll 

sl2 

sl3 

sl4 

Sis 

sl6 

sl7 

sl8 

sl9 

s2 

s20 

s21 

s22 

S3 

s4 

s5 

s6 

s7 


Description 


date 

text 

text 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

date 

text 

text 

text 

text 

text 

date 

text 

integer 

text 

text 

text 

text 

text 

text 

text 

date 

text 

text 

text 

text 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

text 

real 

real 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

date 

text 

time 

time 


gpdob  in  operator 

flag  variable 

flag  variable 

operator  id  (system) 

ownlname  in  owners 

ownid  in  owners 

ownfname  in  owners 

ownmi  in  owners 

ownaddr  in  owners 

owncity  in  owners 

owns tale  in  owners 

ownzip  in  owners 

owntelno  in  owners 

owndob  in  owners 

flag  variable 

flag  variable 

operator  street  address 

operator  city  address 

operator  course  code 

operator  date  of  birth 

operator  first  name 

operator  id  (system) 

operator  last  name 

operator  middle  initial 

operator  state  address 

operator  telephone  number 

operator  zip  code 

owner  street  address 

owner  city  address 

owner  date  of  birth 

owner  first  name 

owner  last  name 

owner  middle  initial 

owner  id  (system) 

owner  id  (system) 

owner  state  addreiss 

owner  telephone  number 

owner  zip  code 

flag  variable 

user  input 

user  input 

flag  variable 

user  input 

folder  number 

flag  variable 

folderno  in  sar 

sarpob  in  sar 

sarvhin  in  sar 

sarlat  in  sar 

sarlong  in  sar 

distofz  in  sar 

immedsar  in  sar 

winddir  in  sar 

windspd  in  sar 

visdist  in  sar 

clouds  in  sar 

ucn  in  sar 

ceiling  in  sar 

seas  in  sar 

swells  in  sar 

mucn  in  sar 

sardate  in  sar 

sarday  in  sar 

sartime  in  sar 

ssunrise  in  sar 


Used  In 
mod_sar.prg 


mod_sut.prg 


Name  Type 


Description 


S8 

time 

s9 

text 

vcelling 

vdistofx 

text 

integer 

vfoldno 

text 

vimmed 

text 

vmucn 

text 

vsardate 

date 

vsarday 

text 

vsarhin 

text 

vsarlat 

real 

vsarlong 

real 

vsarnod 

text 

vsarpob 

integer 

vsartime 

time 

vseas 

text 

vsunrise 

time 

vsunset 

time 

vswells 

text 

vucn 

text 

wisdist 

text 

vwinddir 

text 

vwindspd 

text 

both 

text 

change 

text 

correct 

text 

done 

text 

foldok 

text 

more 

text 

mrsut 

.  text 

name 

text 

reenter 

text 

sulO 

date 

sull 

time 

sul2 

date 

sul3 

time 

sul4 

date 

sulS 

time 

sul6 

date 

sul 

text 

su2 

text 

su3 

time 

su4 

date 

su5 

time 

su6 

date 

su7 

time 

su8 

date 

su9 

text 

valgdate 

date 

valdtime 

vdateos 

time 

date 

vdvmoord 

date 

vdvmoort 

time 

vetadate 

date 

vfoldno 

text 

voseta 

time 

VOS time 

time 

vsumoord 

date 

vsumoort 

time 

vtowdate 

date 

vtowtime 

time 

viinit 

text 

vuwdate 

date 

vuwtime 

time 

ssunset 
sarnod  in  sar 
ceiling  in  sar 
distance  offshore 
sar  folder  number 
immediate  sar? 
multi-unit  case  number 
sar  date 

sar  day  of  the  week 
sarvhin  in  sar 
latitude  position 
longitude  position 
nature  of  distress 
personnel  on  board 
sar  time 
seas  in  sar 
bsunrise  in  boarding 
bsunset  in  boarding 
swells  in  sar 
unit  case  number 
visdist  in  sar 
winddir  in  sar 
windspd  in  sar 
flag  variable 
flag  variable 
user  input 
flag  variable 
flag  variable 
flag  variable 
user  input 
flag  variable 
user  input 

alngdate  in  sarunits 
towcime  in  sarunits 
towdate  in  sarunits 
dvmoored  in  sarunits 
dvmdate  in  sarunits 
sutmoor  in  sarunits 
sutdate  in  sarunits 
foldno  in  sarunits 
unit  in  sarunits 
uwtime  in  sarunits 
uwdate 

oseta  in  sarunits 
etadate  in  sarunits 
ostime  in  sarunits 
osdate  in  sarunits 
alngtime  in  sarunits 
date  alongside 
time  alongside 
on  scene  date 
date  distressed  vessel  mo 
time  distressed  vessel  mo 
on  scene  eta  date 
sar  folder  number 
on  scene  eta  time 
on  scene  time 
date  sar  unit  moored 
time  sar  unit  moored 
date  started  towing 
time  started  towing 
sar  unit  name 
unden/ay  date 
underway  time 


■mmiiiiiiv*! 


■mwnwvnrew 


Lm  \m\m  v  r«u«irvvni  w.v*vi 


Used  In 
mocLvhln.prg 


operator. prg 


opervsl.prg 

opervsls.prg 


owners. prg 


ownvsl.prg 


packdbms.prg 

perintel.prg 


Name 


chk  hin 
chk  name 
correct 
correct 
er 

error 

foundv 

more 

mrvsls 

vbadhln 

vconstr 

voffno 

vslfound 

wsleng 

wslft 

wslfuel 

wslhin 

wslhp 

wslhull 

wslin 

wslmake 

wslmod 

wslname 

wslno 

wsl'  rop 

wslton 

wsltype 

wsluse 

wslyear 

datediff 

enddate 

endltr 

Itrdiff 

numrows 

strtdate 

strtltr 

allrecs 

endltr 

Itrdiff 

strtltr 

allrecs 

endltr 

Itrdiff 

numrows 

strtltr 

datediff 

enddate 

endltr 

Itrdiff 

numrows 

strtdate 

strtltr 

allrecs 

allrecs 

endltr 

Itrdiff 

numrows 

strtltr 

choice 

datediff 

enddate 

endltr 

Itrdiff 

numrows 

strtdate 

strtltr 


— 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

text 

text 

text 

text 

integer 

text 

text 

text 

text 

text 

integer 

text 

text 

text 

integer 

date 

text 

integer 

integer 

date 

text 

text 

text 

integer 

text 

text 

text 

integer 

integer 

text 

integer 

date 

text 

integer 

integer 

date 

text 

text 

text 

text 

integer 

integer 

text 

text 

integer 

date 

text 

integer 

integer 

date 

text 


Description 


flag  variable 

flag  variable 

user  input 

flag  variable 

user  input 

user  input 

user  input 

flag  variable 

user  input 

vslhin  in  vessel 

coded  vessel  construction 

vessel  official  numbers 

flag  variable 

coded  vessel  engine  compa 

vessel  length  (feet) 

coded  fuel  compartment 

vslhin  in  vessel 

vessel  horsepower 

coded  vessel  hull  materia 

vessel  length  (inches) 

vessel  make 

vslmodel  in  vessel 

vessel  name 

vessel  number 

coded  vessel  propulsion 

vsltons  in  vessel 

coded  vessel  type 

coded  vessel  use 

vessel  year 

date  difference 

ending  date 

ending  letter 

letter  difference 

counting  variable 

starting  date 

starting  letter 

flag  “  all  records? 

ending  letter 

letter  difference 

start  letter 

user  all  records  input 

ending  letter 

letter  difference 

counting  variable 

starting  letter 

date  difference 

ending  date 

ending  letter 

letter  difference 

counting  variable 

starting  date 

starting  letter 

flag  - —  all  records? 

user  all  records  input 

ending  letter 

letter  difference 

counting  variable 

starting  letter 

user  choice  input 

date  difference 

ending  date 

ending  letter 

letter  difference 

counting  variable 

starting  date 

starting  letter 


Used  In  Name  Type 


pr8_maln.pr9  picks  Integer 

qrymaln.prg  plcklO  Integer 

queroer.prg  bohlsprn  text 

chk-op  text 

count  integer 

done  text 

more  text 

mrname  text 

opid  integer 

oprfound  text 

owndone  text 

ownfound  text 

owoptest  text 

perintpr  text 

persprn  text 

sarhsprn  text 

searchok  text 

status  text 

vale  text 

vbodate  date 

vbolat  real 

vbolong  real 

vboname  text 

vbono  text 

vborate  text 

vboreml  text  ■ 

vborem2  text 

vboremS  text 

vbotime  time 

vdate  date 

vdistoff  integer 

v«)ic  text 

vfname  text 

vfoldno  text 

vlmmed  text 

vintdate  date 

vlname  text 

vmi  text 

vmuen  text 

voffno  text 

vopaddr  text 

vopcity  text 

voperse  text 

vopdob  date 

vopfname  text 

voplname  text 

vopmi  text 

vopst  text 

voptelno  text 

vopzip  text 

vowid  integer 

vperaddr  text 

vpercity  text 

vperdob  date 

vpermi  text 

vperst  text 

vpertel  text 

vperzip  text 

vpfname  text 

vplname  text 

vreml  text 

vrem2  text 

vrem3  text 

vsardate  date 

vsarday  text 


Description 


menu  variable 
menu  variable 
user  input 
flag  variable 
counting  variable 
flag  variable 
flag  variable 
user  input 

operator  id  (system) 

flag  variable 

flag  variable 

flag  variable 

flag  variable 

user  input 

user  input 

user  input 

flag  variable 

flag  variable 

operator  alcohol  conditio 

boarding  date 

latitude  position 

longitude  position 

boname  in  boarding 

boarding  report  number 

borate  in  boarding 

boreml  in  boarding 

borem2  in  boarding 

borem3  in  boarding 

boarding  time 

intelligence  date 

distance  offshore 

^ic  code 

first  name 

sar  folder  number 

immediate  sar? 

vessel  intelligence  date 

last  name 

middle  initial 

multi-unit  case  number 

vessel  official  numbers 

operator  street  address 

operator  city  address 

operator  course  code 

operator  date  of  birth 

operator  first  name 

operator  last  name 

operator  middle  initial 

operator  state  address 

operator  telephone  number 

operator  zip  code 

owner  record  id  number 

street  address 

city  address 

date  of  birth 

middle  initial 

state  address 

telephone  number 

zip  code 

first  neune 

last  name 

personnel  intelligence  re 
personnel  intelligence  re 
personnel  intelligence  re 
sar  date 

sar  day  of  the  week 
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Used  In 
querjser.prg 


quer_vsl.prg 


Name  Type 


Description 


vsarlat 

vsarlong 

vsarpob 

vsarcime 

vslprn 

vstolen 

vucn 

vuns69 

vuns70 

vuns71 

vuns72 

vuns73 

vuns74 

vuns75 

viins76 

vuns77 

vuns78 

vuns79 

wiol54 

wiolSS 

wiol56 

wiol57 

wiol58 

wiol59 

wiol60 

wioiei 

wiol62 

wiol63 

wiol64 

wiol65 

wiol66 

wiol67 

wiol68 

wreml 

wrem2 

wrem3 

wslhin 

wslmake 

wslname 

wslno 

wslpob 

weapons 

bohisprn 

chk-hin 

chk-intl 

chk-name 

chk-no 

chkoffno 

choice 

count 

menu 

more 

nameok 

opid 

owhisprn 

owid 

sarhsprn 

vale 

vbodate 

vbolat 

vbolong 

vboname 

vbono 

vborate 

vboreml 


real 

real 

integer 

time 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

integer 

text 

integer 

text 

text 

date 

real 

real 

text 

text 

text 

text 


latitude  position 
longitude  position 
personnel  on  board 
sar  time 
user  input 
stolen  vessel 
unit  case  number 
unsafe  condition  69 
unsafe  condition  70 
unsafe  condition  71 
unsafe  condition  72 
unsafe  condition  73 
unsafe  condition  74 
unsafe  condition  75 
unsafe  condition  76 
unsafe  condition  77 
unsafe  condition  78 
unsafe  condition  79 
violation  code  54 
violation  code  55 
violation  code  56 
violation  code  57. 
violation  code  58 
violation  code  59 
violation  code  60 
violation  code  61 
violation  code  62 
violation  code  63 
violation  code  64 
violation  code  65 
violation  code  66 
violation  code  67 
violation  code  68 
vessel  intelligence  remar 
vessel  intelligence  remar 
vessel  intelligence  remar 
vslhin  in  vessel 
vessel  make 
vessel  name 
vessel  number 
personnel  on  board 
weapons  in  boarding 
user  input 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
user  input  choice 
counting  variable 
flag  variable 
flag  variable 
flag  variable 
operator  id  (system) 
user  input 
owner  id  (system) 
user  input 

operator  alcohol  conditio 
boarding  date 
latitude  position 
longitude  position 
boname  in  boarding 
boarding  report  number 
borate  in  boarding 
boreml  in  boarding 
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U?WHjw.iM'*Bmw^Ky<<TnT»nntr*rTmnnmnr'rwifmmmiiii.ui» 


Used  In 

Name 

Type 

quer_v8l.prg 

vborem2 

text 

vborem3 

text 

vbotdme 

time 

vdate 

date 

vdistoff 

integer 

vdob 

date 

VMJic 

text 

vfname 

text 

vfoldno 

text 

vimmed 

text 

vintdate 

date 

vintprn 

text 

vlname 

text 

vmi 

text 

vmucn 

text 

voffno 

text 

vopaddr 

text 

vopcity 

text 

vopcrse 

text 

vopdob 

date 

vopfname 

text 

voplname 

text 

vopmi 

text 

vopst 

text 

voptelno 

text 

vopzip 

text 

vowaddr 

text 

vowcity 

text 

vowdob 

date 

vowfname 

text 

vowlname 

text 

vowmi 

text 

vowst 

text 

vowtelno 

text 

vowzip 

text 

vreml 

text 

vrem2 

text 

vrem3 

text 

vsardate 

date 

vsarday 

text 

vsarlat 

real 

vsarlong 

real 

vsarpob 

integer 

vsartime 

time 

vslprn 

text 

vstolen 

text 

vucn 

text 

vxms69 

text 

vuns70 

text 

vuns71 

text 

vuns72 

text 

vuns73 

text 

vuns74 

text 

vuns75 

text 

vuns76 

text 

vuns77 

text 

vuns78 

text 

vuns79 

text 

vviol54 

text 

vviol55 

text 

vviol56 

text 

vviol57 

text 

vviol58 

text 

vviol59 

text 

vviol60 

text 

214 


Description 


borem2  in  boarding 
borem3  in  boarding 
boarding  time 
intelligence  date 
distance  offshore 
date  of  birth 
^ic  code 
first  name 
sar  folder  number 
immediate  sar? 
vessel  intelligence  date 
user  input 
last  name 
middle  initial 
multi-unit  case  number 
vessel  official  numbers 
operator  street  address 
operator  city  address 
operator  course  code 
operator  date  of  birth 
operator  first  name 
operator  last  name 
operator  middle  initial 
operator  state  address 
operator  telephone  number 
operator  zip  code 
owner  street  address 
owner  city  address 
owner  date  of  birth 
owner  first  name 
owner  last  name 
owner  middle  initial 
owner  state  address 
owner  telephone  number 
owner  zip  code 
personnel  intelligence  re 
personnel  intelligence  re 
personnel  intelligence  re 
sar.  date 

sar  day  of  the  week 
latitude  position 
longitude  position 
personnel  on  board 
sar  time 
flag  variable 
stolen  vessel 
unit  case  number 
unsafe  condition  69 
unsafe  condition  70 
unsafe  condition  71 
unsafe  condition  72 
unsafe  condition  73 
unsafe  condition  74 
unsafe  condition  75 
unsafe  condition  76 
unsafe  condition  77 
unsafe  condition  78 
unsafe  condition  79 
violation  code  54 
violation  code  55 
violation  code  56 
violation  code  57 
violation  code  58 
violation  code  59 
violation  code  60 
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Used  In  Name  Type 


Description 


quer_vsl.prg 


rptmain.prg 
sar  main.prg 
saraates.prg 
sarday.prg 


wiol61 

wiol62 

wiol63 

wiol64 

wiol65 

wiol66 

wiol67 

wiol68 

wreml 

wrem2 

wrem3 

wslhin 

wslmake 

wslname 

wslno 

wslpob 

weapons 

pick4 

pick? 

jundatel 

aprdatel 

aprdate2 

aprsar 

augdatel 

augdate2 

augsar 

change 

count 

decdatel 

decdate2 

decsar 

enddate 

febdatel 

febdate2 

febsar 

found 

friday 

initdate 

jandatel 

5andate2 

lansar 

juldatel 

juldate2 

qulsar 

jundatel 

3undate2 

junsar 

mardatel 

mardate2 

marsar 

maydatel 

maydate2 

maysar 

monday 

new 

novdatel 

novdate2 

novsar 

numrows 

numyears 

octdatel 

octdate2 

octsar 

old 

pctapr 


text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

integer 

integer 

date 

date 

date 

integer. 

date 

date 

integer 

real 

integer 

date 

date 

integer 

date 

date 

date 

integer 

text 

integer 

date 

date 

date 

integer 

date 

date 

integer 

date 

date 

integer 

date 

date 

integer 

date 

date 

integer 

integer 

integer 

date 

date 

integer 

integer 

integer 

date 

date 

integer 

integer 

real 


violation  code  61 

violation  code  62 

violation  code  63 

violation  code  64 

violation  code  65 

violation  code  66 

violation  code  67 

violation  code  68 

vessel  intelligence  remar 

vessel  intelligence  remar 

vessel  intelligence  remar 

vslhin  in  vessel 

vessel  make 

vessel  name 

vessel  number 

personnel  on  board 

weapons  in  boarding 

menu  variable 

menu  variable 

time  computation  variable 

starting  date 

ending  date 

summation  variable 

starting  date 

ending  date 

summation  variable 

percentage 

counting  variable 

starting  date 

ending  date 

summation  variable 

ending  date 

starting  date 

ending  date 

summation  variable 

flag  variable 

counting  variable 

starting  date 

starting  date 

ending  date 

summation  variable 

starting  date 

ending  date 

summation  variable 

starting  date 

ending  date 

siunmation  variable 

starting  date 

ending  date 

summation  variable 

starting  date 

ending  date 

summation  variable 

counting  variable 

this  year's  sar  cases 

starting  date 

ending  date 

summation  variable 

counting  variable 

counting  variable 

starting  date 

ending  date 

summation  variable 

previous  year's  sar  cases 

percentage 


Name 


Type 


Description 


pctaug 

pet Chang 

pctdec 

petfeb 

petfri 

pet j an 

petjul 

petjun 

petmar 

petmay 

petmon 

petnov 

pctoct 

petsat 

petsep 

petsun 

petthu 

pettue 

petwed 

sarOO 

sarOl 

sar02 

sar03 

sar04 

sarOS 

sar06 

sar07 

sarOS 

sar09 

sarlO 

sarll 

sarl2 

sarSl 

sar82 

sar83 

sar84 

sar85 

sar86 

sar87 

sar88 

sar89 

sar90 

sar91 

sar92 

sar93 

sar94 

sar95 

sar96 

sar97 

sar98 

sar99 

Saturday 

sepdatel 

sepdate2 

sepsar 

suml 

sumlO 

sumll 

suml2 

sum2 

sum20 

sum3 

sum4 

sumS 

sum6 


real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 


real 

real 

real 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

Integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

Integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

date 

date 


integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
coimting  variable 
counting  variable 
counting  variable 
counting  variable 
starting  date 
ending  date 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
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Used  In  Name 


Type 


Description 


sarday.prg 


Sunday 
thursday 
totsars 
tuesday 
weds day 
year 
yrl981 
yrl9aia 
yrl982 
yrl982a 
yrl983 
yrl983a 
yrl984 
yrl984a 
yrl985 
yrl985a 
yrl986 
yrl986a 
yrl987 
yrl9a7a 
yriaaa 
yrl98aa 
yrl989 
yrl989a 
yrl990 
yrl990a 
yrl991 
yrl991a 
yrl992 
yrl992a 
yrl993 
yrl993a 
yrl994 
yrl994a 
yrl995 
yrl995a 
yrl996 
yrl996a 
.  yrl997 
yrl997a 
yrl998 
yrl998a 
yrl999 
yrl999a 
.  yr2000 
yr2000a 
yr2001 
yr2001a 
yr2002 
yr2002a 
yr2003 
yr2003a 
yr2004 
yr2004a 
yr2005 
yr2005a 
yr2006 
yr2006a 
yr2007 
yr2007a 
yr2008 
yr2008a 
yr2009 
yr2009a 
yr2010 


integer 

Integer 

integer 

integer 

integer 

integer 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 


counting  variable 
counting  variable 
sununation  variable 
counting  variable 
counting  variable 
saryear 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
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Used  In  Name  Type 


Description 


sarday.prg 


sardump.prg 


sarmajor.prg 


sarminor.prg 


sarsmbt.prg 


sarsys.prg 

sartimes.prg 


yr2010a 

yr2011 

yr2011a 

yr2012 

yr2012a 

yrtestl 

yrtest2 

datediff 

enddate 

numrows 

strtdate 

datediff 

easttst 

enddate 

gridcnt 

inarea 

inpct 

northtst 

numrows 

outarea 

outpct 

southtst 

strtdate 

temppct 

totsars 

westtst 

datediff 

easttst 

enddate 

?ridcnt 
narea 
inpct 
northtst 
numrows 
outarea 
outpct 
southtst 
strtdate 
temppct 
westtst 
datediff 
enddate 
inpct 
inpcttmp 
inside 
numrows 
outpct 
outpcttm 
outside 
strtdate 
totsars 
pickl 
algavg 
algtimes 
datediff 
datedour 
enddate 
maxaltim 
maxostim 
maxshtim 
maxtttim 
maxtwtim 
minaltim 
minostim 
minshtim 


date 

date 

date 

date 

date 

integer 

integer 

integer 

date 

integer 

date 

integer 

real 

date 

integer 

integer 

real 

real 

integer 

integer 

real 

real 

date 

real 

integer 

real 

integer 

real 

date 

integer 

integer 

real 

real 

integer 

integer 

real 

real 

date 

real 

real 

integer 

date 

real 

real 

integer 

integer 

real 

real 

integer 

date 

integer 

integer 

real 

integer 

integer 

real 

date 

real 

real 

real 

real 

real 

real 

real 

real 


ending  date 

starting  date 

ending  date 

starting  date 

ending  date 

leap  year  test 

leap  year  test 

date  difference 

ending  date 

counting  variable 

starting  date 

date  difference 

nautical  position  coord. 

ending  date 

counting  variable 

counting  variable 

percentage 

nautical  position  coord, 
counting  variable 
counting  variable 
percentage 

nautical  position  coord, 
starting  date 
percentage 
counting  variable 
nautical  position  coord, 
date  difference 
nautical  position  coord, 
ending  date 
counting  variable 
counting  variable 
percentage 

nautical  position  coord, 
counting  variable 
counting  variable 
percentage 

nautical  position  coord, 
starting  date 
percentage 

nautical  position  coord. 

date  difference 

starting  date 

percentage 

percentage 

summation  variable 

counting  variable 

percentage 

percentage 

summation  variable 

starting  date 

counting  variable 

menu  variable 

average  alongside  time 

counting  variable 

date  difference 

time  computation  variable 

ending  date 

maximum  alongside  time 

maximum  on  scene  time 

maximum  search  time 

maximum  total  case  time 

maximum  towing  time 

minimum  alongside  time 

minimum  on  scene  time 

minimum  search  time 
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Used  In 


Name  Type 


Description 


sartlmes.prg 


smboatrp.prg 


startup. prg 


utlmain.prg 
vessel. prg 


violfreq.prg 


mlntttlm 

mintwtim 

oscavg 

osdate 

ossum 

ostlme 

ostlmes 

schavg 

schtlmes 

strtdate 

sutdate 

sutmoor 

test 

time add 

timehour 

totavg 

totsiun 

tottimes 

towavg 

towsum 

towtimes 

uwdate 

uwtime 

datediff 

enddate 

inside 

obslat 

obslong 

outside 

strtdate 

totbrds 

chances 

count 

username 

use^ass 

validusr 

pickll 

anytype 

choice 

endltr 

legalch 

legaltyp 

legaluse 

Itrdiff 

numrows 

strtltr 

typchoic 

typetest 

usechoic 

usetest 

datediff 

enddate 

pct54 

pct54tmp 

pct55 

pctSStmp 

pct56 

pct56tmp 

pets? 

pct57tmp 

petSS 

pctSStmp 

pctS9 

pctS9tmp 

peteo 


real 

real 

real 

date 

real 

time 

integer 

real 

integer 

date 

date 

time 

real 

real 

real 

real 

real 

integer 

real 

real 

integer 

date 

time 


integer 

date 

integer 

real 

real 

integer 

date 

integer 

integer 

integer 

text 

text 

text 

integer 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

integer 

date 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 


minimum  cotal  case  time 

minimum  towing  time 

average  on  scene  time 

on  scene  date 

summation  variable 

on  scene  time 

counting  variable 

average  search  time 

counting  variable 

starting  date 

sar  unit  moored  date 

sar  unit  moored  time 

comparison  variable 

time  computation  variable 

time  computation  variable 

average  total  case  time 

summation  variable 

counting  variable 

average  t jwing  time 

summation  variable 

counting  variable 

underway  date 

underway  time 

date  difference 

ending  date 

counting  variable 

nautical  position  coord. 

nautical  position  coord. 

counting  variable 

starting  date 

counting  variable 

chances  to  logon 

counting  variable 

user  name  input 

user  password 

flag  variable 

menu  variable 

flag  variable 

user  choice  input 

ending  letter 

flag  variable 

flag  variable 

flag  variable 

letter  difference 

counting  variable 

starting  letter 

user  type  choice 

vessel  type 

user  vessel  use  choice 

vessel  use 

date  difference 

ending  date 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 
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Used  In 
vlolfreq.prg 


Name  Type 


Description 


pctSOtmp 

pctei 

pctSltmp 

pct62 

pct62tmp 

pct63 

pct63tmp 

pct64 

pct64tmp 

pct65 

pct65tmp 

pct66 

pct66tmp 

pct67 

pct67tmp 

pct68 

pct68tmp 

pct69 

pct69tnip 

pct70 

pct70tmp 

pct71 

pct71tmp 

pct72 

pct72tmp 

pct73 

pct73tmp 

pct74 

pct74tmp 

pct75 

pct75tmp 

pct76 

pct76tmp 

pct77 

pct77tmp 

pct78 

pct78tmp 

pct79 

pct79tmp 

strtdate 

uns69s 

uns70s 

uns71s 

uns72s 

uns73s 

uns74s 

uns75s 

uns76s 

uns77s 

uns78s 

uns79s 

unstotl 

unstot2 

unstot3 

unstot4 

unstotS 

unstotS 

unstot7 

uns total 

viol54s 

violSBs 

viol56s 

viol57s 

viol58s 

viol59s 


real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

integer 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

date 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

starting  date 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

sununation  variable 

sununation  variable 

summation  variable 

summation  variable 

summation  variable 

summation  variable 

summation  variable 

total  unsafe  conditions 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 
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Used  In  Name 


Type 


Description 


violfreq.prg 


vsl_main.prg 

vsloper.prg 


vslowner.prg 


viol60s 

viol61s 

viol623 

viol6os 

viol64s 

viol65s 

viol66s 

viol67s 

viol68s 

vtotl 

vtotlO 

vtotll 

vtotl2 

vtotl3 

vtot2 

vtot3 

vtot4 

vtotS 

vtote 

vtot7 

VtotS 

vtot9 

vtotal 

picks 

allrecs 

allrecs 

endltr 

Itrdiff 

numrows 

strtltr 

allrecs 

allrecs 

endltr 

Itrdiff 

numrows 

strtltr 


Integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

integer 

integer 

text 


counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
total  violations 
menu  variable 
user  all  records  input 
flag  -  all  records? 
ending  letter 
letter  difference 
counting  variable 
starting  letter 
flag  -  all  records? 
user  all  records  input 
ending  letter 
letter  difference 
counting  variable 
starting  letter 
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Data  Entry  /  Edit  Rules 


i 


RULE  1  vslyear  IN  vessel  fail 
or  vslyear  IN  vessel  ge  0 
Message:***  Invalid  Vessel  Year  *** 

RULE  2  vslhp  IN  vessel  fail 
or  vslhp  IN  vessel  ge  0 
Message:***  Invalid  Vessel  Horsepower  *** 

RULE  3  vsluse  IN  vessel  fail 

or  vsluse  IN  vessel  eqa  vuse  IN  boatuse 
Message:***  Invalid  Vessel  Use  *** 

RULE  4  vsltype  IN  vessel  fail 

or  vsltype  IN  vessel  eqa  vtype  IN  boattype 
Message:***  Invalid  Vessel  Type  *** 

RULE  5  vslprop  IN  vessel  fail 

or  vslprop  IN  vessel  eqa  proptype  IN  boatprop 
Message:***  Invalid  Vessel  Propulsion  *** 

RULE  6  vslhull  IN  vessel  fail 

or  vslhull  IN  vessel  eqa  hmattype  IN  hullmat 
Message:***  Invalid  Vessel  hull  Type  *** 

RULE  7  vsleng  IN  vessel  fail 

or  vsleng  IN  vessel  eqa  ecomptyp  IN  engcomp 
Message:***  Invalid  Engine  Compartment  Type  *** 

RULE  8  vslfuel  IN  vessel  fail 

or  vslfuel  IN  vessel  eqa  fcomptyp  IN  fuelcomp 
Message:***  Invalid  Fuel  Compartment  Type  *** 


RULE  9  vslconst  IN  vessel  fail 

or  vslconst  IN  vessel  eqa  constype  IN  constr 
Message:***  Invalid  Vessel  Construction  *** 

RULE  10  cmeyear  IN  vessel  fail 
or  cmeyear  IN  vessel  ge  0 
Message:***  Invalid  CME  Decal  Year  *** 

RULE  1 1  vslmasts  IN  vessel  fail 
or  vslmasts  IN  vessel  ge  0 
Message:***  Invalid  No.  Vessel  Masts  *** 

RULE  12  sailho  IN  vessel  fail 
or  sailno  IN  vessel  ge  0 
Message:***  Invalid  Sail  Number  *** 

RULE  13  hlcolor  IN  vessel  eqa  shade  IN  colors 
and  trcolor  IN  vessel  eqa  shade  IN  colors 
and  slcolor  IN  vessel  eqa  shade  IN  colors 
and  cbcolor  IN  vessel  eqa  shade  IN  colors 
and  dkcolor  IN  vessel  eqa  shade  IN  colors 
Message:***  Invalid  Color  Entry  *** 

RULE  14  .  vsltons  IN  vessel  >  =  0 
Message:***  Invalid  Vessel  Tons  *** 

RULE  15  vsllenft  IN  vessel  >  =  0 

Message:***  Invalid  Vessel  Length  (ft)  *** 

RULE  16  vsllenin  IN  vessel  >  =  0 
and  vsllenin  IN  vessel  <  *  12 
Message:***  Invalid  Vessel  Length  (in)  *** 

RULE  17  vslvalue  IN  vessel  >  »  0 
Message:***  Invalid  Vessel  Value  *** 
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RULE  18  cmedecal  IN  vessel  fail 
or  cmedecal  IN  vessel  -  Y 
or  cmedecal  IN  vessel  »*  N 
Message:***  Invalid  CME  Decal  Entry  [Y/N]  *** 

RULE  19  opstate  IN  operator  fail 

or  opstate  IN  operator  eqa  abbrev  IN  states 
or  opstate  IN  operator  eqa  symbol  IN  nations 
Message:***  Invalid  Operator  State/Nation  *** 

RULE  20  opzip  IN  operator  fail 
or  opzip  IN  operator  >  =  0 
Message:***  Invalid  Operator  Zip  Code  *** 

RULE  21  optelno  IN  operator  fail 
or  optelno  IN  operator  >  =  0 
Message:***  Invalid  Operator  Phone  Number  *** 

RULE  22  opcourse  IN  operator  fail 

or  opcourse  IN  operator  eqa  ooiirsetp  IN  courses 
Message:***  Invalid  Operator  Course  Code  *** 

RULE  23  ownzip  IN  owners  fail 
or  ownzip  IN  owners  >  =  0 
Message:***  Invalid  Owner  Zip  Code  *** 

RULE  24  ownstate  IN  owners  fail 

or  ownstate  IN  owners  eqa  symbol  IN  nations 
or  ownstate  IN  owners  eqa  abbrev  IN  states 
Message:***  Invalid  Owner  State/Nation  *** 

RULE  25  owntelno  IN  owners  fail 
or  owntelno  IN  owners  >  =  0 
Message:***  Invalid  Owner  Phone  Number  *** 


RULE  26  sarday  IN  sar  fail 

or  sarday  IN  sar  eqa  dayabbr  IN  days 
Message:***  Invalid  SAR  Day  of  Week  *** 

RULE  27  sarpob  IN  sar  >  ■  0 
Message:***  Invalid  SAR  FOB  *** 

RULE  28  sarlat  IN  sar  >  *  0.0 
and  sarlat  IN  sar  <  »  90.0 
Message:***  Invalid  SAR  Latitude  *** 

RULE  29  sarlong  IN  sar  >  =  0.0 
and  sarlong  IN  sar  <  =  180.0 
Message:***  Invalid  SAR  Longitude  *** 

RULE  30  offshore  IN  sar  >  =  0 

Message:***  Invalid  Distance  Offshore  *** 

RULE  31  immedsar  IN  sar  =  Y 
or  immedsar  IN  sar  “  N 
or  immedsar  IN  sar  fail 

Message:***  Invalid  Immediate  SAR  Entry  [Y/N]  ** 

RULE  32  winddir  IN  sar  >  =  000 
and  winddir  IN  sar  <  360 
Message:***  Invalid  Wind  Direction  *** 

RULE  33  windspd  IN  sar  >  =  0 
Message:***  Invalid  Wind  Speed  *** 

RULE  34  visdist  IN  sar  >=  0 

Message:***  Invalid  Visual  Distance  *** 


RULE  35  clouds  IN  sar  >  -  0 
and  clouds  IN  sar  <  -  10 
Message:***  Invalid  Cloud  Percentage  (Tenths)  ** 

RULE  36  ceiling  IN  sar  >  *  0 

Message:***  Invalid  Cloud  Ceiling  (Feet)  *** 

RULE  37  seas  IN  sar  >  *  0 

Message:***  Invalid  Sea  Height  (Feet)  *** 

RULE  38  swells  IN  sar  >  *  0 

Message:***  Invalid  Swell  Height  (Feet)  *** 

RULE  39  epiccode  IN  vslintel  eqa  epicno  IN  epic 
or  epiccode  IN  vslintel  fail 
Message:***  Invalid  EPIC  Code  Entry  *** 

RULE  40  foldemo  IN  sar  nea  foldemo  IN  sar 
Message:***  Duplicate  SAR  Folder  Number  *** 

RULE  41  bono  IN  boarding  nea  bono  IN  boarding 
Message:***  Duplicate  Boarding  Report  Number  **• 

RULE  42  vslpob  IN  boarding  >  =  0 
Message:***  Invalid  Boarding  POB  *** 

RULE  43  adultpfd  IN  boarding  >  =  0 
Message:***  Invalid  Adult  PFD/POB  *** 

RULE  44  childpfd  IN  boarding  >  =  0 
Message:***  InvaUd  Child  PFD/POB  *** 

RULE  45  owstatus  IN  boarding  eqa  ostattyp  IN  status 
or  owstatus  IN  boarding  fail 
Message:***  Invalid  Owner  Status  *** 


RULE  46  obsstate  IN  boarding  eqa  abbrev  IN  states 
or  obsstate  IN  boarding  eqa  symbol  IN  nations 
or  obsstate  IN  boarding  fail 
Message:***  Invalid  Boarding  State/Nation  *** 

RULE  47  obslat  IN  boarding  >  «  0.0 
and  obslat  IN  boarding  <  =  90.0 
Message:***  Invalid  Boarding  Latitude  *** 

RULE  48  obslong  IN  boarding  >  =  0.0 
and  obslong  IN  boarding  <  *  180.0 
Message:***  Invalid  Boarding  Longitude  *** 

RULE  49  boday  IN  boarding  eqa  dayabbr  IN  days 
or  boday  IN  boarding  fail 
Message:***  Invalid  Boarding  Day  of  Week  *** 

RULE  50  weapons  IN  boarding  >  =  0 
Message:***  Invalid  Number  of  Weapons  *** 

RULE  51  bodist  IN  boarding  eqa  distno  IN  district 
or  bodist  IN  boarding  fail 
Message:***  Invalid  Boarding  District  *** 

RULE  52  vslhin  IN  vessel  nea  vslhin  IN  vessel 
Message:***  Error:  Duplicate  Vessel  HIN  *** 
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APPENDIX  D 

MODULE  FUNCTIONAL  DESCRIPTIONS 

The  US  Coast  Guard  Group  Monterey  SARELTIS  prototype  design  includes 
eleven  sets  of  application  programs  that  access  one  central  relational  database.  These 
sets  of  application  programs  include: 

•  SARSYS.PRG  -  Main  Menu  Programs 

•  SENTRY.PRG  --  Data  Entry  Menu  and  Programs 

•  MODIFY.PRG  --  Data  Modification  Menu  and  Programs 

•  SREPORTS.PRG  --  Reports  Master  Menu  Programs 

•  INTRPTS.PRG  --  Intelligence  Reports  Menu  and  Programs 

•  BRDRPTS.PRG  --  Boarding  Reports  Menu  and  Programs 

•  SARRPTS.PRG  --  Sar  Reports  Menu  and  Programs 

•  VSLRPTS.PRG  --  Vessel  Reports  Menu  and  Programs 

•  PRSRPTS.PRG  --  Personnel  Reports  Menu  and  Programs 

•  SQUERY.PRG  -  Database  Query  Menu  and  Programs 

•  SUTILITY.PRG  -  Utilities  Menu  and  Programs 

Each  application  program  set  consists  of  a  master  menu  block  and  numerous  modules 
that  perform  specific  functions.  The  modules  and  menus  are  called  Command  and 
Menu  files  within  the  R:base  5000  programming  language.  Functional  descriptions  of 
each  module,  grouped  by  application  program  set,  are  contained  in  this  appendix. 

1.  SARSYS.PRG 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

MAIN  MENU  and  STARTUP  APPLICATION 

Author;  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


/  V^TV^^V^JW^^V^r  I  >nf  >I^  t  V^n 


*^i<t*y^************ilt*************************><t**********:*t********A*******A 

Program I  Access  Input  Module 

Author  I  J  D  Allen  and  H  R  Lang 

Date  Written  i  August  1987 

Description!  This  program  calls  the  input  master  menu. 

Tables  Used:  none 

Temp  Tables  i  none 

Reports  Used:  none 

Forms  Used:  none 


*^**l<t***5<[*********************************!lt***************************** 

Program:  Access  Modify  Module 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  modify  master  menu. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 


Program:  Access  Query  Module 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  query  master  menu. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 


Program:  Access  Reports  Module 

Author : ,  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  reports  master  menu. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 

Program:  Access  Utilities  Module 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  utility  master  menu. 

Tables  Used:  none 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used:  none 


Program:  Access  Ad  Hoc  Module 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  allows  the  user  to  exit  the 

menus  to  the  R:base  5000  command  prompt  to 
execute  ad  hoc  queries. 

Tables  Used:  none 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used:  none 
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2.  SENTRY.PRG 


US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

INPUT  MASTER  MENU  and  INPUT  PROGRAMS 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


Program : 
Author : 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Add  Sar 

H  R  Lang  and  J  D  Allen 
July  1987 

This  program  allows  the  user  to  input 
sar  case  information. 

vessel,  sar,  owners,  operators,  owvsl,  opvsl 

none 

none 

sarforml,  sarform2,  sarform3,  sarfonn4, 
sarformS,  sarformS,  sarform7,  sarform8, 
sarform9 


□ 


**************************************************:******************** 


Program : 
Author : 

Date  Written: 
Description: 

Tables  Used: 

Temp  Tables: 
Reports  Used: 
Forms  Used: 


Add  Sar  with  Boarding 
H  R  Lang  and  J  D  Allen 
July  1987 

This  program  allows  the  user  to  enter  sar 

and  boarding  information. 

boarding,  vessel,  owners,  operator,  owvsl, 

opvsl,  sar 

none 

none 

cg4100al,  cg4100a2,  cg4100a3,  cg4100a4, 
cg4100a5,  cg4100a6,  cg4100a7,  cg4100a8, 
cg4100a9,  sbdforml,  sarforml,  sarform8, 
sarform9,  sarformS 


Program: 
Author : 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Add  Sar  Units 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  input  sar 

unit  data. 

sar,  sarunits 

none 

none 

sarformS 
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Program: 
Author : 

Date  Written: 
Description: 

Tables  Used: 

Temp  Tables: 
Reports  Used: 
Forms  Used: 


-Add  Boarding 
H  R  Lang  and  J  D  Allen 
July  1987 

This  program  allows  the  user  to  input 
boarding  Information. 

boarding,  vessel,  owners,  operator,  owvsl, 

opvsl, 

none 

none 

cg4100al,  cg4100a2,  cg4100a3,  cg4100a4, 
cg4100a5,  cg4100a6,  cg4100a7,  cg4100a8, 
cg4100a9,  sarformS 


*  ^  *************************************:********************************* 


Program: 
Author : 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Add  Owner 

H  R  Lang  and  J  D  Allen 
July  1987 

This  program  allows  the  user  to  input 

additional  owner  information. 

vessel,  owners,  owvsl 

none 

none 

ownrmodl,  ownrmod2 


***********************************************************************) 


3.  MODIFY.PRG 


*^  ********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

MODIFY  MAIN  MENU  and  APPLICATIONS 

Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*^  ********************************************************************** 


Program: 
Author ; 

Date  Written; 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Modify  Sar 

H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 

sar  information  in  the  database. 

sar,  vessel 

none 

none 

sarmod 


*  ( ********************************************************************** 
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wi  fvi  wiM 


t^***************************************:********************^****^^*:^*** 


Program  >. 
Autnor : 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Modify  Boarding 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 

boarding  information  in  the  database. 

boarding,  vessel 

none 

none 

bomodl,  bomod2,  bomod3 


Program: 
Autnor : 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Modify  Vessel 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 

vessel  information  in  the  database. 

vessel 

none 

none 

vslmodl,  vslmod2 


*/********************************************************************** 


Program; 

Author: 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Modify  Owner  and  Operator 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 
owner  and  operator  information  in  the 
database. 

owners,  operator,  opown 

none 

none 

ownrmodl,  ownrmod2,  opermodl,  opermod2 


Program : 
Autnor : 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables; 
Reports  Used: 
Forms  Used; 


Modify  Sar  Unit 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 

sar  unit  data  in  the  database. 

sar,  sarunits 

none 

none 

sunitmod 


Program: 
Author : 

Date  Written: 
Description: 


Tables  Used; 
Temp  Tables: 
Reports  Used: 
Forms  Used; 


Modify  Vessel  HIM 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 
vessel  hull  identification  numbers  in 
the  database. 

vessel,  sar,  boarding,  owvsl,  opvsl 

none 

none 

vhinform 


Program  I 
Author  t 
Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Add  and  Modify  Vessel  Intelligence 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  Input 

and  modify  vessel  Intelligence 

information. 

vsllntel 

none 

none 

vintform 


Program : 
Author ; 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Add  and  Modify  Personnel  Intelligence 
H  R  Lang  and  J  0  Allen 
August  1987 

This  proaram  allows  the  user  to  input 

and  modify  personnel  intelligence 

information. 

perintel 

none 

none 

pintform 


4.  SREPORTS.PRG 


•ft(  **************  A************************************************^.  ****** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

REPORTS  MAIN  MENU  APPLICATION  PROGRAM 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*^  ********************************************************************** 


Program: 
Author : 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Intelligence  Reports 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  intelligence  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


*^ ********************************************************************** 


Program: 

Author: 

Date  Written; 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Boarding  Reports 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  boarding  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


*^  ********************************************************************** 
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Program  I  Access  Sar  Reports 

Author:  J  0  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  SAR  reports  master 

menu  and  application  programs. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 


Program:  Access  Vessel  Reports 

Author:  J  D  Allen  and  H  k  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  vessel  reports 

master  menu  and  application  programs. 
Tables  Used:  .  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 


•ft  ^  :^ye****:fc***********A**********:fc*******A**********:<f  ******  *************** 

Program:  Access  Personnel  Reports 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  personnel  reports 

master  menu  and  application  programs. 

Tables  Used:  none 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used:  none 


***********************************************************************  J 

5.  INTRPTS.PRG 


*(********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

INTELLIGENCE  REPORTS  MENU  and  APPLICATION  PROGRAMS 


Author;  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*  ^  ********************************************************************** 
Program:  Personnel  Intelligence  Dump  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  performs  a  listing  by  date  and 

by  alphabtic  search  of  those  personnel  in 
the  table  PERINTEL  (personnel  intelligence). 
Tables  Used:  perintel 

Temp  Tables:  persum 

Reports  Used:  perintel 

Forms  Used:  none 


*^  ********************************************************************** 


WWWWlw>t»»!figummmpuwmnj»  Kll  HUHUIVUVUIVUH  VTW  imiTVXi^  wi  w\rvt  *vi  fwi 


*^*****************ile***********************5<t****************:fc*********** 


Program i 
Author : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 

Reports  Used: 
Forms  Used: 


EPIC  Intelligence  Analysis 
J  D  Allen  ana  H  R  Lang 
August  1987 

Performs  a  dump  of  all  vessels  In  the 
VSLINTEL  table  within  a  specified  time 
period.  Four  reports  are  generated 
providing  listings  by  EPIC  Code,  by  . 
stolen  vessels,  and  by  intelligence 
remarks,  and  a  frequency  breakdown 
and  analysis  of  EPIC  Codes, 
vsllntel 

epicsum,  stolesum,  intelsum,  epictmpl, 
epictmp2,  epictmp 

epicsum,  stolesum,  intelsum,  epicrpt 
none 


Program: 
Author : 

Date  Written: 
Description? 


Tables  Used: 
Temp  Tables: 


Reports  Used: 


Forms  Used: 


Violation  Vessel  Profile  Intelligence 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  examines  vessel  boardings  to 
create  a  profile  of  vessel  which  violate 
specific  laws  during  a  specified  time  period, 
boarding,  vessel,  viols,  boattype,  boatuse, 
constr,  engcomp,  fuelcomp,  hullmat,  boatprop 
bosum,  vslsum,  violsum,  vslmo, 
summaryl,  summary2,  summaryS,  summary4, 
summaryS,  summary6,  summary?,  temp 
vtypemo,  vusemo,  vconstmo,  vengmo, 
vfuelmo,  vhullmo,  vpropmo,  vlenftmo, 
vyearmo 
none 


6.  BRDRPTS.PRG 


US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

BOARDING  REPORTS  MENU  and  APPLICATION  PROGRAMS 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


Program: 
Author : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Violation  /  Unsafe  Condition  Frequency  Analysis 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 

of  boarding  violations  and  unsafe  conditions 

within  a  specified  time  period. 

boarding 

frqchart,  temp 

violfreq,  unsfreq 

none 


*  ^********:<t*********:lt*ycjfc:<r************  A**:****************  **************** 
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Program:  Boarding  Summary  Listing  Program 

Author:  ,  J  0  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  performs  a  listing  of  the 

BOARDING  table  during  a  specified  time 

Eeriod.  The  report  is  sorted  by  date 
efore  being  printed. 

Tables  Used:  boarding 

Temp  Tables:  bosum 

Reports  Used:  boarding 

Forms  Used;  none 


Program:  Boarding  Major  Grid  Area  Frequency  Program 

Author;  J  D  Allen  and  H  R  Lang 

Date  Written;  August  1987 

Description:  This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of  cases 
which  occur  in  areas  specified  by  coordinates 
found  in  the  MAJAREA  table  during  a  specified 
time  period. 

Tables  Used:  majarea,  boarding 

Temp  Tables;  bosum,  positfrq 

Reports  Used:  bomajor 

Forms  Used;  none 


Program:  Boarding  Minor  Grid  Area  Frequency  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of 
cases  which  occur  in  a  specified  location 
defined  in  the  MINAREA  table  during  a 
specified  time  period. 

Tables  Used:  boarding,  minarea 

Temp  Tables:  bosum,  positfrq 

Reports  Used:  bominor 

Forms  Used:  none 


Program:  Boarding  Small  Boat  Area  Frequency  Program 

Author;  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description; '  This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of  cases 
which  occur  in  the  small  boat  operating  as 
defined  by  Coast  Guard  Group  Monterey's 
OPLAN  during  a  specified  time  period. 

Tables  Used:  boarding 

Temp  Tables:  temp,  bosum 

Reports  Used:  smboatrp 

Forms  Used:  none 


JWHi  Mf>OBi»im.iuwinu  pu  WM  m  Mi'A»t»wjnuHi'gwj 


Programs 

Author : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Courtesy  Motorboat  Examinations  (CME's) 
Statistical  Analysis 
J  D  Allen  and  H  k  Lang 
August  1987 

This  program  performs  a  statistical  analysis 

of  vessels  that  were  boarded  to  determine 

the  frequency  of  CME's  and  their  year  of 

issue  during  a  specified  time  period. 

boarding,  vessel 

bosum,  vslsum,  bovslsum,  temp 

cmerpt 

none 


Program: 
Author : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Daytime  vs.  Nighttime  Frequency  Analysis 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 

of  SAR  cases  and  Boardings  to  determine 

percentage  of  cases  which  occur  in  the 

daytime  vs  those  that  occur  at  night  during 

a  specified  time  period. 

sar,  boarding 

sarsum,  bosum,  temp 

daynight 

none 


************************  A**********  A*****:^****************:*************^ 

7.  SARRPTS.PRG 


US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

SAR  REPORTS  MENU  and  APPLICATION  PROGRAMS 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*  ^  ***********************  w*****************************************)^;**** 


Program: 
Author ; 

Date  Written; 
Description: 


Tables  Used; 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


SAR  Major  Grid  Area  Frequency  Analysis 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  percentage  of 

cases  which  occur  in  specified  locations  in 

the  table  MAJAREA  during  a  specified  time 

period. 

majarea,  sar 

sarsum,  positfrq 

sarmajor 

none 


*  ^ ************ ********** ************************************************ 


Programs  SAP  Minor  Grid  Area  Frequency  Analysis 

Autnors  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  percentage  of 
cases  which  occur  in  locations  specified  by 
coordinates  contained  in  the  table  MINAREA 
during  a  specified  time  period. 

Tables  Used:  sar,  minarea 

Temp  Tables:  sarsum,  positfrg 

Reports  Used:  sarminor 

Forms  Used:  none 


Programs  SAR  Case  Small  Boat  Area  Frequency  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description;  This  program  performs  a  statistical  analysis 

of  SAR  Cases  co  determine  percentage  of 
cases  which  occur  in  the  small  boat  operating 
as  defined  by  Coast  Guard  Group  Monterey's 
OPLAN  during  a  specified  time  period. 

Tables  Used:  sar 

Temp  Tables;  temp,  sarsum 

Reports  Used;  sarsmbt 

Forms  Used:  none 


•k  ^•kit-k-k^'k-kitifkickick-ki^'k'kickifi^'k'kit'ifk-k^'k-kick'kifif'kickifk'k-k'kifk^ifk'kifkitick'k’k'k-k'kifk'k'k'k'k'k'k-k'k 

Program;  SAR  Case  Units  Time  Expended  Frequency 

Author:  J  0  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  total  time 
expended,  time  to  being  on  scene,  time  to 
being  alongside,  time  involved  in  searches, 
and  time  involved  in  towing.  These  times  are 
analyzed  to  produce  totals,  averages, 
minimums,  and  maximums  for  a  specific  time 
period. 

Tables  Used:  sarunits 

Temp  Tables;  sartimel,  sartimeZ,  sartimeS,  sartime4, 

sartimeS ,  temp 
Reports  Used;  sartimes 

Forms  Used;  none 


k  ^kkkkkkkkkkkkkkk-kkkkkkkkkkkkkkkkkkkkkkkkkkk'kkkkkkkkkkkkkkkkkkkkkkkkk'kk'k 

Program;  SAR  Days,  SAR  Months,  SAR  Years  Frequency 

Analysis 

Author:  J  0  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description;  This  program  performs  a  statistical  analysis 
of  SAR  cases  to  determine  percentage  of 
cases  which  occurred  on  specific  days  of  the 
week,  months  of  the  year  and  years  during  a 
specified  time  period. 

Tables  Used:  sar 

Temp  Tables:  sarsuml ,  sarstat,  sarsum,  temp 

Reports  Used;  sardates,  sardays 

Forms  Used:  none 
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Program: 
Autnor : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Davtlme  vs.  Nighttime  Frequency  Analysis 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 

of  SAR  cases  and  Boardings  to  determine 

percentage  of  cases  which  occur  in  the 

daytime  vs  those  that  occur  at  night  during 

a  specified  time  period. 

sar,  boarding 

sarsum,  bosum,  temp 

daynight 

none 


*^  ********************************************************************** 


Program: 
Autnor : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


SAR  Summary  Listing  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  dump  of  the  table  SAR 
of  those  SAR  cases  that  occurred  during  a 
specified  time  period.  The  listing  is  sorted 
by  date  prior  to  being  printed, 
sar 

sarsum 

sar 

none 


*  ^  ********************************************************************** 


Program: 

Autnor: 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Immediate  SAR  Frequency  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 
of  SAR  cases  to  determine  percentage  of  cases 
which  are  of  immediate  nature  during  a 
specified  time  period, 
sar 

sarsum,  temp 

immedsar 

none 


***********************************************************************  J 

8.  VSLRPTS.PRG 


*^  ********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

VESSEL  REPORTS  MENU  and  APPLICATION  PROGRAMS 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

*  ^  ********************************************************************** 
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Proarami  Vessel  Summary  Listing  Program 

Autnor:  J  D  Allen  and  H  R  Lang 

Date  Written!  August  1987 

Description:  This  program  performs  a  dump  of  the  VESSEL 

table.  Listing  entries  are  selected  by 
vessel  type,  vessel  use,  and  by  an 
alphabetic  search. 

Tables  Used:  vessel,  boattype,  boatuse 

Temp  Tables:  vslsum,  vslsuml,  vslsum2 

Reports  Used:  vessel 

Forms  Used:  none 


Program:  Vessel  -  Owner  Dump  Program 

Autnor:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  performs  a  listing  sorted  by 

vessel  name  of  those  vessels  which  are 
owned  by  a  specified  group  of  owners.  All 
of  the  vessels  in  the  VESSEL  table  may  be 
selected  or  only  a  group  specified  in  an 
alphabetic  search. 

Tables  Used:  owvsl.  owners,  vessel 

Temp  Tables:  ownvsis,  ownvslsl,  ownvsls2 

Reports  Used:  vslowner 

Forms  Used:  none 


Program:  Vessel  -  Operator  Dump  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  performs  a  listing  sorted  by 

vessel  name  of  those  vessels  which  are 
operated  by  a  specified  group  of  operators. 
The  entire  list  of  vessels  may  be  printed 
or  a  specified  group  based  on  an  alphabetic 
search. 

Tables  Used:  opvsl,  operator,  vessel 

Temp  Tables:  opervsls,  opvslsl,  opvsls2 

Reports  Used:  vsloper 

Forms  Used:  none 


9.  PRSRPTS.PRG 


US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

PERSONNEL  REPORTS  MENU  and  APPLICATION  PROGRAMS 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*^  ********************************************************************** 
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A^*******************************************************************:^** 


Program  t 
Autnor : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Vessel  Owners  Table  Dump 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  prints  a  sorted  listing  of 
vessel  owners  contained  in  the  database 
based  on  the  owner's  last  name  and  date 
of  birth, 
owners 

ownsuml,  ownsum2 

owners 

none 


Program : 
Autnor : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Vessel  Operator  Listing 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  listing  of  operators 

of  vessels  contained  in  the  table  OPERATOR. 

They  are  selected  by  date  of  birth  and  by 

the  first  letter  of  the  last  name.  The 

listing  is  sorted  alphabetically  before 

being  printed. 

operator 

opsuml,  opsum2 

operator 

none 


Program : 
Autnor : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Operator  -  Vessel  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  listing  sorted  by 
operator  last  name  of  those  vessels  which 
are  used  by  specified  operators.  Operators 
may  be  selected  by  an  alphabetic  search  or 
may  be  selected  in  their  entirety, 
opvsl,  operator,  vessel 
opervsls,  opvslsl,  opvsls2 
opervsls 
none 


Program ; 
Autnor : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Owner  -  Vessel  Dump  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  proaram  performs  a  listing  sorted  by 

owner  last  name  of  those  owners  which  own 

specific  vessels.  Owners  may  be  selected 

in  their  entirety  or  may  be  selected  by 

an  alphabetic  search. 

owvsl,  owners,  vessel 

ownvsis,  ownvslsl,  ownvslsZ 

ownvsls 

none 


i 


} 


I 

! 

I 


i 

i 

I 
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10.  SQUERY.PRG 


US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

QUERY  MENU  and  APPLICATION  PROGRAMS 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


Program ; 
Author : 

Date  Written: 
Description: 

Tables  Used: 

Temp  Tables: 
Reports  Used: 

Forms  Used: 


Suery  Vessel 

R  Lang  and  J  D  Allen 
August  1987 

This  program  searches  database  for  all 
information  concerning  a  particular  vessel, 
vessel,  sar.  boarding,  owner,  operator, 
owvsl,  opvsl,  vslintel,  perintel 
temp,  vslint,  perint,  bonis,  sarhis 
vslqprn,  bogprn,  sarqprn,  owqprn,  opqprn, 
pintqprn,  vintqprn 

vsiquery,  brdquery,  sarquery,  ownquery, 
opquery,  pintquer,  vintquer 


Program : 
Author : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Suery  Personnel 

R  Lang  and  J  D  Allen 
August  1987 

This  program  searches  database  for  all 
information  concerning  a  particular^  person, 
including  all  vessels  owned  or  operated 
and  all  historical  information  concerning 
these  vessels. 

vessel,  sar,  boarding,  owner,  operator, 
owvsl,  opvsl,  opown,  vslintel,  perintel 
temp,  vslint,  perint,  bohis,  sarhis, 
vslsown,  vslsopr,  wvsljoin,  pvsljoin 
vslqprn,  bogprn,  sarqprn,  perqprn, 
pintqprn,  vintqprn 

vsiquery,  brdquery,  sarquery,  perquerl, 
perquerz,  pintquer,  vintquer 
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11.  SUTILITY.PRG 


yit^*******yit**************:*t**********<t******j<t*****:<t*:fc*:*t******************* 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

UTILITIES  MENU  and  APPLICATION  PROGRAMS 


Author!  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


Program:  Initialize  SARSYS 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  removes  all  temporary 

tables  that  can  be  created  by  the  system. 
Tables  Used:  none 

Temp  Tables :  .  all 

Reports  Used:  none 

Forms  Used:  none 


Program:  Pack  Database 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  packs/compresses  the  database. 

Tables  Used:  none 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used:  none 


Program:  Backup  Database 

Author:  J  0  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  provides  instructions  for 

backing  up  the  database. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 


Program:  Restore  Database 

Author:  J  0  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  provides  instructions  for 

restoring  the  database  from  a  backup. 
Tables  Used:  none 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used:  none 


*******************************y(  ********  A************************** 
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APPENDIX  E 

SOURCE  CODE  FOR  ANCILLARY  PROGRAM  MODULES 

The  Search  and  Rescue  and  Enforcement  of  Laws  and  Treaties  Intelligence 
System  (SARELTIS)  Prototype  for  US  Coast  Guard  Group  Monterey  consists  of 
eleven  sets  of  application  programs  written  in  the  R:base  5000  command  language,  and 
sixteen  ancillary  program  modules  written  in  either  the  R:base  5000  command  language 
or  as  DOS  batch  or  data  files.  All  of  these  programs  have  access  to  one  common 
relational  database  structure,  named  SARSYS. 

This  appendix  contains  the  source  code  for  the  sixteen  ancillary  program  modules 
of  SARELTIS.  These  modules  include  the  following: 

•  RESTBRD.cmd  -  Runs  the  Boarding  Reports  Menu  Program 

•  RESTINPT.cmd  -  Runs  the  Data  Entry  Menu  Program 

•  RESTINT.cmd  -  Runs  the  Intelligence  Reports  Menu  Program 

•  RESTMAIN.cmd  -  Runs  the  Main  Menu  Program 

•  RESTMOD.cmd  -  Runs  the  Data  Modification  Menu  Program 

•  RESTPRS.cmd  -  Runs  .the  Personnel  Reports  Menu  Program 

•  RESTQRY.cmd  -  Runs  the  Query  Menu  Program 

•  RESTRPTS.cmd  -  Runs  the  Reports  Master  Menu  Program 

•  RESTSAR.cmd  -  Runs  the  Sar  Reports  Menu  Program 

•  RESTUTLY.cmd  -  Runs  the  Utilities  Menu  Program 

•  RESTVSL.cmd  -  Runs  the  Vessel  Repons  Menu  Program 

•  STARTUP.BIN  -  Runs  the  Title  Page  and  Security  Program 

•  RBASE.DAT  -  Runs  Startup.bin  when  R:base  is  loaded 

•  SARSYS.BAT  -  Automatically  loads  application  from  main  directory 

•  BACKDBMS.BAT  -  Batch  file  to  backup  the  database  and  programs 

•  RESTDBMS.BAT  -  Batch  file  to  restore  the  database  and  programs 

The  source  code  for  the  application  program  sets  is  contained  in  Appendix  F  through 
Appendix  P.  All  programs  for  this  project  were  developed  by  the  writers.  Internal 
formats  for  the  Reports  and  Entry/Edit  forms  are  contained  within  the  R:base  5000 
database  structure  itself  and  were  considered  inappropriate  for  listing. 


yit^:)li*****yit******A***:fcA*******:k*******yit<i******ilt********)lt****************** 

Program!  RESTBRD.cmd 

Author  I  J  D  Allen  and  H  R  Lang 

Date  Written!  August  1987 

Description!  This  program  calls  the  boarding  reports  menu. 

Tables  Used!  none 

Temp  Tables!  none 

Reports  Used:  none 

Forms  Used I  none 


run  brd  main  in  brdrpts.apx 
*(  end  T 


Program!  RESTINPT.cmd 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  input  main  menu. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 

***********************************************************************  ^ 

run  inpmain  in  sentry. apx 
*(  end  ) 


*^  ********************************************************************** 

Program:  RESTINT.cmd 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  intelligence  reports  menu. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 

***********************************************************************  ^ 

run  intmain  in  intrpts.apx 
*(  end  7 


*^  ********************************************************************** 

Program:  RESTMAIN.cmd 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  main  menu  of  the  system. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 

******************************************?<****************************  ^ 

run  sarsys  in  sarsys.apx 
*(  end  ) 


Program: 

Author: 

Date  Written: 
Description: 
Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


RESTHOD.cmd 

J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  modify  main  menu, 
none 


none 

none 

none 


run  modmain  in  modify. apx 
*(  end  ) 


*^  ***:****************************************************************** 


Program: 
Author : 

Date  Written: 
Description: 
Tables  Used: 
Temp  Tables; 
Reports  Used: 
Forms  Used: 


RESTPRS.cmd 

J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  personnel  reports  menu. 

none 

none 

none 

none 


run  prs  main  in  prsrpts.apx 
*(  end  7 


*  ^  *******  A***  A**:*:***********************:*:************:****************:*** 


Program: 
Author : 

Date  Written; 
Description: 
Tables  Used; 
Temp  Tables ; 
Reports  Used; 
Forms  Used: 


RESTQRY.cmd 

J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  modify  main  menu. 

none 

notie 

none 

none 


*********************************************************************** 


) 


run  qrymain  in  squery.apx 
*(  end  ) 


.  *  ^  ********************************************************************** 


Program; 

Author; 

Date  Written: 
Description: 
Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used; 


RESTRPTS . cmd 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  reports  main  menu. 

none 

none 

none 

none 


***********************************************************************  J 

run  rptmain  in  sreports.apx 
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*(  end  ) 


Program: 

Author: 

Date  Written: 
Description: 
Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


RESTSAR.cmd 

J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  sar  report.-  menu. 

none 

none 

none 

none 


run  sar  main  in  sarrpts.apx 

*(  end  7 


Program: 
Author : 

Date  Written: 
Description: 
Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


RESTUTLY.cmd 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  utility  main  menu. 

none 

none 

none 

none 


run  utlmain  in  sutility.apx 
*(  end  ) 


Program: 
Author : 

Date  Written: 
Description: 
Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


RESTVSL.cmd 

J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  vessel  reports  menu. 

none 

none 

none 

none 


ick'k'kidtitifkitictfkiti^'k'ititif'ffAitit^'kiti^'kifkificffkikick'kifk-kick'kiK'k-k-k'kidt'k'A-k'ki^'kiflfk'/fk'kifk'Mick'k'k-k  ^ 


run  vsl  main  in  vslrpts.apx 
*(  end  7 


igram : 

STARTUP. prg  ( 

funcomr 

;hor ; 

J  D  Allen  am 

i  H  R  I 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Lang 

August  1987 

This  program  displays  the  title  screen  and 
verifies  user  access. 


none 

none 

none 

none 
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A**********************************************************************  j 

set  error  messages  off 
set  escape  off 
set  messages  off 
newpage 

clear  all  variables 
write  " 


5 

5 

5 

5 


WELCOME 
This  is  the 
Search  &  Rescue  / 

Enforcement  of  Laws  and  Treaties 
Intelligence  Information  System  (SARELTIS) 
Authors:  LT  Jon  D.  Allen,  US  Coast  Guard 
LT  Heidi  R.  Lang,  US  Navy 
Date:  September  1987 
Please  press  any  key  to  continue 


"  at  3 
write  " 

"  at  5 
write  " 

"  at  8 
write  " 

"  at  9 
write  " 

"  at  10 
write  " 

"  at  14 
write  " 

■'  at  15 
write  " 

"  at  16 
write  "■ 

"  at  22 
pause 
newpage 

set  var  username  text 
set  var  userpass  text 
set  var  validusr  text 
set  var  validusr  to  no 
set  var  chances  integer 
set  var  chances  to  3 
set  error  messages  on 
while  validusr  eq  no  then 

write  "Please  enter  your  user  name  and  your  user  password"  at  3  1 

fillin  username  using  "User  Name:  "  at  5  20 

fillin  userpass  using  "Password:  "  at  6  21 

set  error  messages  off 

newpage 

if  username  eg  "*****•'  and  userpass  eq  "******'•  then 
set  var  validusr  to  yes 
break 
endif 

if  username  eg  "***"  and  userpass  eq  "******'•  then 
set  var  validusr  to  yes 
break 
endif 

set  var  chances  to  .chances  -  !• 
if  chances  le  0  then 
newpage 

set  var  count  to  20 
while  count  ne  0  then 

write  "Improper  LOGON  attempt. ..  .SARELTIS  Terminated!"  at  10  1 
set  var  count  to  .count  -  1 
endwhile 
newpage 
exit 
endif 

write  "invalid  user  name  or  password.  Please  try  again."  at  10  1 
endwhile 

if  username  eq  sysop  then 
user  sarsys 
newpage 

write  "Initializing  SARELTIS"  at  10  25 
run  sarsys  in  sarsys. apx 
endif 

if  username  eq  ood  then 
newpage 

write  "Initializing  SARELTIS"  at  10  25 
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run  sarsys  In  sarsys.apx 
endlf 
exit 
*(  end  ) 


Program; 

Author: 

Date  Written; 
Description; 

Tables  Used: 
Temp  Tables; 
Reports  Used: 
Forms  Used; 


RBASE.DAT 

J  D  Allen  and  H  R  Lang 
August  1987 

This  program  loads  the  title  screen  and  security 

module  when  R:base  5000  is  loaded. 

none 

none 

none 

none 


run  startup.bin 

exit 

*(  end  ) 


it  (  itititii‘:kiti<ititititititititititif^itifit:kiiitiiiiicitititititititititititif^itifkititititititititititif^ititititifkititiii<itititit 


Program; 

Author; 

Date  Written; 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used; 
Forms  Used; 


SARSYS.  BAT- 

J  D  Allen  and  H  R  Lang 
August  1987 

This  file  loads  R:base  and  enters  the 

SARELTIS  application  directly  from  the 

main  directory. 

none 

none 

none 

none 


iiifkiiititifkitiiitititititititititititititifititiiitittkitititititititititititititit^itifidtitititititititititifkitititititititititicit  ] 


cd  c;\dbdir 
path  =  c;\r5k 
rbase 
*(  end  ) 


itf^ititititiiititititititiiitititititititititifkitititititititititititititititititititititititititititifkitititititititititititititititititit 


Program  .- 
Author ; 

Date  Written; 
Description; 


Tables  Used; 
Temp  Tables; 
Reports  Used; 
Forms  Used; 


BACKDBMS.BAT 
J  D  Allen  and  H  R  Lang 
August  1987 

This  file  performs  a  backup  of  the 
database  structure  and  all  application 


programs. 

none 

none 

none 

none 


ititititititititititititititititititititiiitititititititifkititititititititititicitititititititititititititititititititititititititititititit  J 

path  =  C;  ;C;\util 
cd  \dbdir 
backup  *.apx  a; 
backup  sarsys?. rbs  a: 
backup  *.cma  a; 
backup  startup.bin 
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backup  rbase.dat 

path  =  c:\dbdir;  c:\r5k 

rbase 


*(  end  ) 


Program:  RESTDBMS.BAT 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  file  restores  a  backup  copy  of 

the  database  structure  and  application 
programs. 

Tables  Used:  none 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used:  none 


path  =  c  :\dbdir;c  ;\util 
cd  Ndbdir 
restore  a:  \dbdir 
restore  a:  \dbdir 
restore  a:  \dbdir 
restore  a:  \dbdir 
restore  a:  \dbdir 
path  =  c :\dbdir;c :\r5k 
rbase 
*(  end  ) 


APPENDIX  F 
SARSYS  SOURCE  CODE 


$COMMAND 

SARSYS 

★  ^********!*t********3<t**)<c**:<r************************j<[*******><t*:*E*:^r*******A* 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

MAIN  MENU  and  STARTUP  APPLICATION 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

************************************************************:*******:****  J 

set  escape  off 

set  messages  off 

set  error  messages  off 

open  sarsys 

clear  all  variables 

run  INITIAL  in  sutility.apx 

set  var  pickl  integer 

newpage 

choose  pickl  from  mainmenu  in  sarsys. apx 
if  pick!  eq  0  then. 

quit  to  restmain.cmd 
endif 

if  pickl  eg  1  then. 

run  SINPUTS  in  sarsys. apX 
quit  to  restmain.cmd 
endif  . 

if  pickl  eg  2  then 

run  MODIFY  in  sarsys. apx 
quit  to  restmain.cmd 


endif 
if  pickl  eg  3  then 

run  QUERY  in  sarsys. apx 
quit  to  restmain.cmd 
endif 

if  pickl  eg  4  then 

run  SREPORTS  in  sarsys. apx 
quit  to  restmain.cmd 
endif 

if  pickl  eq  5  then 

run  UTILITY  in  sarsys. apx 
.  quit  to  restmain.cmd 
endif 

if  pickl  eq  6  then 

run  ADHOC  in  sarsys. apx 
quit  to  restmain.cmd 
endif 

if  pickl  eq  7  then 

set  var  exitprg  text 
set  var  exitprg  to  yes 
endif 

write  "You  have  completed  this  session...."  at  10  1 
write  "REMEMBER  —  Do  frequent  backups!"  at  12  1 
write  "Please  press  any  key  to  exit"  at  18  1 
pause 


pillJIIWIliJJUl 
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newpage 

set  escape  on 

set  messages  on 

set  error  messages  on 

exit 

$menu 

mainmenu 

column  SARELTIS  —  MASTER  MENU 

INPUT  INFORMATION 

MODIFY  INFORMATION 

QUERY  INFORMATION 

REPORTS 

UTILITIES 

AD  HOC  QUERIES 

EXIT  SARELTIS 

*(  end  ) 


$ COMMAND 
SINPUTS 


Program; 
Author : 

Date  Written; 
Description; 
Tables  Used; 
Temp  Tables; 
Reports  Used; 
Forms  Used; 


ccess  Input  Module 
D  Allen  and  H  R  Lang 
ugust  1987 

his  program  calls  the  input  master 
one 


menu. 


*********************************  A********:*****:<t***********************J 

run  INPMAIN  in  SENTRY. apx 

return 

*(  end  ) 


$ COMMAND 
MODIFY 

*  ^  ********************************************************************** 


Program; 

Author; 

Date  Written; 
Description: 
Tables  Used; 
Temp  Tables; 
Reports  Used; 
Forms  Used; 


Access  Modify  Module 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  modify  master  menu. 

none 

none 

none 

none 


***********************************************************************  ^ 

run  MODMAIN  in  MODIFY. apx 

return 

*(  end  ) 


$ COMMAND 
QUERY 

*  ^  ********************************************************************** 


Program; 
Author ; 

Date  Written; 
Description: 
Tables  Used: 


Access  Query  Module 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  query  master  menu, 
none 
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Temp  Tables  >  none 

Reports  Usedi  none 

Forms  Used:  none 

run  QRYMAIN  in  SQUERY.apx 

return 

*(  end  ) 


$COMMAND 

SREPORTS 

*  ^*5::^********************************:^********************************** 

Program:  Access  Reports  Module 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  reports  master  menu. 

Tables  Used:  none 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used;  none 

************************************:^********5ic*************************) 

run  RPTMAIN  in  SREPORTS. apx 

return 

*(  end  ) 


SCOMMAND 

UTILITY 

*^  ************  :******A*******:*r****:<t**********A*******:*r*  A**  A**:*t*****:fc*:<t  A** 

Program':  Access  Utilities  Module 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  utility  master  menu. 

Tables  Used;  none 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used:  none 

***********************************************************************  ^ 

run  UTLMAIN  in  SUTILITY.apx 

return 

*(  end  ) 


SCOMMAND 
ADHOC  • 

*  ^  ********************************************************************** 

Program:  Access  Ad  Hoc  Module 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description;  This  program  allows  the  user  to  exit  the 

menus  to  the  RBase  5000  command  prompt  to 
execute  ad  hoc  queries. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 


newpage 

write  "You  are  now  exiting  the  menu  system  of  SARELTIS.  Before  + 
exercising  "  at  4  1 

write  "this  option,  you  should  become  very  familiar  with  RBase  5000  "  + 
at  5  1 

write  "query  commands  found  in  the  reference  manuals  and  the  actual  "  -i- 
at  6  1 

write  "database  structure."  at  7  1 

write  "Do  you  wish  to  return  to  the  SARELTIS  menus?  (Y)"  at  10  1 
set  var  choice  text 
fillin  choice  using  "("  at  10  46 
if  choice  eq  n  then 
newpage 

write  "You  are  now  exitting  the  SARELTIS  menu  system"  at  8  10 
write  "If  you  wish  to  return  to  the  menu  system,  please"  at  10  10 
write  "type  RUN  STARTUP  at  the  RBase  5000  prompt."  at  11  10 
write  "Please  press  any  key  to  continue"  at  16  10 
pause 

set  escape  on 
set  messages  on 
set  error  messages  on 
clear  all  variables 
set  bell  on 
ne^age 
quit 
endif 
return 
*(  end  ) 
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APPENDIX  G 
SENTRY  SOURCE  CODE 


$ COMMAND 
INPMAIN 

*^***5****************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

INPUT  MASTER  MENU  and  INPUT  PROGRAMS 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


***********************************************************************  j 

newpage 

set  messages  off 
set  escape  off 
clear  all  variables 
set  var  pick2  integer 
newpage 

choose  pic)c2  from  inp_menu  in  sentry. apx 
if  pick2  eq  0  then 
quit  to  restinpt.cmd 
endif 

if  pick2  eq  1  then 

run  add_sar  in  sentry. apx 
quit  to  restinpt.cmd 
endif 

if  pick2  eq  2  then 

run  add_sbd  in  sentry. apx 
quit  to  restinpt.cmd 
endif 

if  pick2  eq  3  then 

run  add_sut  in  sentry, apx 
quit  to  restinpt.cmd 
endif 

if  pick2  eg  4  then 

run  addjbrd  in  sentry. apx 
quit  to  restinpt.cmd 
endif 

if  pick2  eq  5  then 

run  add_ownr  in  sentry. apx 
quit  to  restinpt.cmd 
endif 

if  pick2  eq  6  then 

run  am_vint  in  modify. apx 
quit  to  restinpt.cmd 
endif 

if  pick2  eq  7  then 

run  am_pint  in  modify. apx 
quit  to  restinpt.cmd 
endif 

if  pick2  eq  8  then 
quit  to  restmain.cmd 
endif 

quit  to  restinpt.cmd 
return 
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dmenu 

lnp_menu 

column  SARELTIS  —  INPUT  MENU 
INPUT  SAR  INFORMATION  (NO  BOARDING) 
INPUT  SAR  INFORMATION  WITH  BOARDING 
INPUT  MULTIPLE  SAR  UNITS 
INPUT  BOARDING  INFORMATION 
INPUT  MULTIPLE  VESSEL  OWNERS 
INPUT  VESSEL  INTELLIGENCE 
INPUT  PERSONNEL  INTELLIGENCE 
RETURN  TO  MAIN  MENU 
*(  end  ) 


$COMMAND 
ADD  SAR 

Program:  Add  Sar 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:  July  1987 

Description:  This  program  allows  the  user  to  input 

sar  case  information. 

Tables  Used:  vessel,  sar,  owners,  operators,  owvsl,  opvsl 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  sarforml,  sarform2,  sarformS,  sarform4, 

sarformS,  sarformS,  sarform?,  sarformS, 

sarformS 


ititititititiiitititi(itifki(iticititiiifki(i(itititititititi<ifkifkititititititifkitititititititititifkititititi(ititi(itititiciti<i(it  J 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by . "  at  10  10 

clear  all  variables 

set  null  ? 

set  var  pg  to  1 

initialize  edit  and  load  control  variables) 
set  var  review  to  N 
set  var  loadmenu  to  N 
label  begin 
set  var  backup  to  N 
set  var  pgcount  to  0 
while  pg  gt  0  then  *(main  loop) 
newpage 

if  pg  eq  1  then 

*( enter  general  sar  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  1 
set  var  vsardate  to  .#date 
set  var  vsartime  to  12':00;00 
set  var  vsarlat  to  0.0 
set  var  vsarlono  to  0.0 
set  var  vdistoff  to  0 
set  var  vsarpob  to  0 
endif 

write  "Press.  [ESC]  to  quit  or  [PGDN]  to  move  down  a  page"  at  1  1 
draw  sarforml  with  all  at  3 
if  review  eq  N  then 

edit  var  return  esc  pgdn 
else 

edit  var  vfoldno  vucn  vmucn  vsardate  vsarday  vsartime  vsarnod  + 
vimmed  vsarlat  vsarlong  vdistoff  vsarpob  return  esc  pgdn 
endif 
endif 


If  pg  eq  2  then 
*(enter  vessel  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  2 
while  wslhin  exists  then 

set  pointer  #1  el  for  vessel  where  vslhin 
newpage 

if  el  eq  0  then 

^(vessel  exists  in  database) 
set  var  wslno  to-  vslno  in  #1 
set  var  wslname  to  vslname  in  #1 
set  var  wslmake  to  vslmake  in  #1 
set  var  wslmod  to  vslmodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  wslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
set  var  wslin  to  vsllenin  in  #1 
set  var  wslhp  to  vslhp  in  #1 
set  var  wsluse  to  vsluse  in  #1 
set  var  wsltype  to  vsltype  in  #1 
set  var  wslprop  to  vslprop  in  #1 
set  var  wslnull  to  vslhull  in  #1 
set  var  wsleng  to  vsleng  in  #1 
set  var  wslfuel  to  vslfuel  in  #1 
set  var  vconstr  to  vslconst  in  #1 
set  var  vdecal  to  cmedecal  in  #1 
set  var  vcmeyear  to  cmeyear  in  1^1 
set  var  voffno  to  vsloftno  in  #1 
set  var  vhome  to  homeport  in  #1 
set  var  vcall  to  vslcall  in  #1 
set  var  walue  to  vslvalue  in  #1 
set  var  vsuper  to  vslsuper  in  #1 
set  var  vmasts  to  vslmasts  in  #1 
set  var  vsailno  to  sailno  in  #1 
set  var  vhlcolor  to  hlcolor  in  #1 

set  var  vtrcolor  to  trcolor  in  #1 

set  var  vslcolor  to  slcolor  in  #1 

set  var  vcbcolor  to  cbcolor  in  #1 

set  var  vdkcolor  to  dkcolor  in  #1 

set  var  vmarks  to  vslmarks  in  #1 
set  var  vl  to  vslno  in  #1 
set  var  v2  to  vslname  in  #1 
set  var  v3  to  .slhin  in  #1 
set  var  v4  to  vslmake  in  #1 
set  var  v5  to  vslmodel  in  #1 
set  var  v6  to  vslyear  in  #1 
set  var  v7  to  vsltons  in  #1 
set  var  vS  to  vsllenfl  in  #1 
set  var.  v9  to  vsllenin  in  #1' 
set  var  vlO  to  vslhp  in  #1 
set  var  vll  lo  vsluse  in  #1 
set  var  vl2  to  vsltype  in  #1 
set  var  vl3  to  vslprop  in  #1 
set  var  vl4  to  vslhull  in  #1  . 
set  var  vl5  to  vsleng  in  #1 
set  var  vl6  to  vslfuel  in  #1 
set  var  vl7  to  vslconst  in  #1 
set  var  vl8  to  cmedecal  in  #1 
set  var  vl9  to  cmeyear  in  #1 
set  var  v20  to  vsloffno  in  #1 
set  var  v21  to  homeport  in  #1 
set  var  v22  to  vslcall  in  #1 
set  var  v23  to  vslvalue  in  #1 
set  var  v24  to  vslsuper  in  #1 
set  var  v25  to  vslmasts  in  #1 
set  var  v26  to  sailno  in  #I 
set  var  v27  to  hlcolor  in  #1 
set  var  v28  to  trcolor  in  #1 
set  var  v29  to  slcolor  in  #1 
set  var  v30  to  cbcolor  in  #1 


set  var  v31  to  dkcolor  In  #1 
set  var  v32  to  vslmarks  in  #1 

else 

set  var  wsltype  text 
set  var  wsltype  to  9 
set  var  wsluse  text 
set  var  wsluse  to  0 
set  var  wslyear  text 
set  var  wslyear  to  1901 
set  var  wslnp  text 
set  var  wsIto  to  0 
set  var  wslft  to  0 
set  var  wslin  to  0 
set  var  wslton  to  0 
set  var  walue  to  $0 
set  var  vdecal  text 
set  var  vcmeyear  text 
endif 
break 
endwhile 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  sarform2  with  all  at  3 

edit  var  wslno  voffno  vhome  vcall  wsltype  wsluse  walue  + 
wslmake  wslmod  wslyear  wslft  wslin  wslhp  wslton  return  + 
esc  pgup  pgdn 
endif 

if  pg  eg  3  then 
*(enter  vessel  information) 
if  review  eq  N  and  backup  eg  N  then 
set  var  pgcount  to  3 
if  el  ne  a  then 
set  var  wslhull  text 
set  var  wslhull  to  8 
set  var  wslfuel  text 
set  var  wslfuel  to  0 
set  var  wsleng  text 
set  var  wsleng  to  0 
set  var  vconstr  text 
set  var  vconstr  to  0 
set  var  wslprop  text 
set  var  wslprop  to  9 
set  var  vslcolor  to  unk 
set  var  vhlcolor  to  unk 
set  var  vtrcolor  to  unk 
set  var  vcbcolor  to  unk 
set  var  vdkcolor  to  unk 
endif 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  sarform3  with  all  at  3 

edit  var  wslhull  wslfuel  wsleng  vconstr  wslprop  vsuper  vmasts 
vslcolor  vsailno  vhlcolor  vtrcolor  vcbcolor  vdkcolor  vmarks  + 
return  esc  pgup  pgdn 
endif 

if  pg  eq  4  then 
*(enter  owner  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  4 
set  var  vowlname  to  unk 
set  var  vowfname  to  unk 

write  "Press  [PGDN]  after  entering  initial  information  to  check 
if"  at  1  5 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  sarform4  with  all  at  4 
edit  var  return  esc  pgdn 
endif 

if  #return  ne  esc  then 


if  review  eg  N  and  backup  eq  N  then 
while  vowiname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowiname  and  + 

ownfhame  «  .vowfname 

newpage 

while  e2  eg  0  then 

’^(owner  last/first  name  exists  in  database) 

set  var  vowmi  to  ownmi  in  #2 

set  var  vowdob  to  owndob  in  #2 

set  var  vowaddr  to  ownaddr  in  #2 

set  var  vowcity  to  owncity  in  #2 

set  var  vowst  to  ownstate  in  #2 

set  var  vovrzip  to  ownzip  in  #2 

set  var  vowtelno  to  owntelno  in  #2 

newpage 

draw  sarform4  with  all  at  3 
draw  sarformS  with  all  at  8 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowiname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 
set  var  ow5  to  owncity  in  #2 
set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  owS  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endif 
next  #2  e2 
endwhile  . 
if  e2  ne  0  then 
ne^age 

write  "This  owner  does  not  exist  in  the  database"  at  5  5 
fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
clear  vowmi 
clear  vowaddr 
clear  vowcity 
set  var  vowst  to  CA 
clear  vowzip 
clear  vowtelno 
set  var  vowdob  to  01/01/1901 
compute  vmaxown  as  max  ownid  from  owners 
if  vmaxown  fails  then 
set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
endif 
nevraage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  sarform4  with  all  at  3 
draw -sarformS  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
endif 
endif 

if  pg  eq  5  then 

enter  operator  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  5 

write  "Press  [PGDN]  after  entering  initial  information  to  check 
if"  at  1  5 

write  "operator  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
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set  var  voplname  to  .vowlname 
set  var  vopfname  to  .vowfname 
draw  sarformS  with  all  at  4 
edit  var  return  esc  pgdn 
endif 

if  #return  ne  esc  then 

if  review  eg  N  and  backup  eq  N  then 
while  voplname  exists  and  vopfname  exists  then 

set  pointer  #3  e3  for  operator  where  oplname  =  .voplname  + 

and  opfname  =  .vopfname 

nevraage 

while  e3  eq  0  then 

^(operator  last/first  name  exists  in  database) 

set  var  vopmi  to  opmi  in  #3 

set  var  vopdob  to  opdob  in  #3 

set  var  vopaddr  to  opaddr  in  #3 

set  var  vopcity  to  opcity  in  #3 

set  var  vopst  to  opscate  in  #3 

set  var  vopzip  to  opzip  in  #3 

set  var  voptelno  to  optelno  in  #3 

set  var  vopcrse  to  opcourse  in  #3 

newpage 

draw  sarform6  with  all  at  3 
draw  sarform?  with  all  at  8 
write*-"Correct  operator?  (N)"  at  21  20 
fillin  opfound  using  "("  at  21  38 
if  opfound  exists  and  opfound  eq  7  then 
set  var  opl  to  .voplname 
set  var  op2  to  .vopfname 
set  var  op3  to  opmi  in  #3 
set  var  op4  to  opaddr  in  #3 
set  var  opS  to  opcity  in  #3 
set  var  op6  to  opstate  in  #3 
set  var  op7  to  opzip  in  #3 
set  var  opS  to  optelno  in  #3 
set  var  op9  to  opdob  in  #3 
set  var  oplO  to  opcourse  in  #3 
set  var  opll  to  opid  in  #3 
set  var  vopid  to  opid  in  #3 
break 
endif 
next  #3  e3 
endwhile 
if  e3  ne  0  then 
newpage 

write  "This  operator  does  not  exist  in  the  database"  at  5  5 
fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
if  vowlname  eq  .voplname  and  vowfname  eq  .vopfname  then 
set  var  vopmi  to  .vowmi 
set  var  vopaddr  to  .vowaddr 
set  var  vopcity  to  .vowcity 
set  var  vopst  to  .vowst 
set  var  vopzip  text 
set  var  vopzip  to  .vowzip 
set  var  voptelno  text 
set  var  voptelno  to  .vowtelno 
set  var  vopdob  to  .vowdob 
else 

clear  vopmi 
clear  vopaddr 
clear  vopcity 
set  var  vopst  to  CA 
clear  vopzip 
clear  voptelno 
set  var  vopdob  to  01/01/1901 
endif 

clear  vopcrse 

compute  vmaxop  as  max  opid  from  operator 
if  vmaxop  fails  then 
set  var  vmaxop  to  0 
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endlf 

set  var  vopid  to  .vmaxop  +  1 
endlf 
break 
endwhlle 
endlf 

wri?e^"Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  sarform6  with  all  at  3 
draw  sarform?  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
endlf 
endlf 

If  pg  eq  6  then 

* (enter  sar  weather  information) 

If  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  6 
set  var  vsunrise  to  06:00:00 
set  var  vsunset  to  19:00:00 
set  var  vceiling  to  0 
set  var  vclouds  to  *0 
set  var  wisdist  to  0 
set  var  vwinddir  to  0 
set  var  vwindspd  to  0 
set  var  vseas  to  0 
set  var  vswells  to  0 
endif 

write  "Press  [ESC]  to  quit  or  [PGUP]  to  move  up  a  page"  at  1  1 
draw  sarform9  with  all  at  3 

edit  var  vsunrise  vsunset  vceiling  vclouds  wisdist  vwinddir  + 
vwindspd  vseas  vswells  return  esc  pgup 
set  var  loadmenu  to  "Y" 


set  var  loadmenu  to  "Y" 
endif • 

if  #return  eq  pgup  then 
set  var  backup  to  Y 
if  pg  gt  1  then 
set  var  pg  to  .pg  -  1 
else 

set  var  pg  to  1 
endif 
endlf 

if  ttreturn  eq  pgdn  then 
if  pg  It  6  tnen 

set  var  pg  to  .pg  +  1 
if  pgcount  It  .pg  then 
set  var  backup  to  N 
endif 
else 

set  var  pg  to  6 
endif 
endif 

if  #return  eq  esc  then 
set  var  backup  to  N 
set  var  pg  to  0 
endif 

endwhile  *(end  of  main  loop) 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  . "  at  10  10 

if  loadmenu  eg  "Y"  then 
set  var  choice  to  0 
while  choice  It  1  or  choice  gt  3  then 
newpage 

write  "Data  Load  Options"  at  2  20 

write  " . - . "  at  3  20 

write  "Enter;"  at  5  20 

write  "1-To  load  the  data  into  the  database"  at  6  20 
write  "2-To  ignore  the  data  entered"  at  7  20 
write  "3-To  go  back  and  verify  data  entered"  at  8  20 
write  "Your  choice;  "  at  10  20 


flllln  choice  using  "  "  at  10  33 
newpage 

if  choice  eq  1  then 
*(test  for  required  information) 

if  vsardate  exists  and  vfoldno  exists  and  vucn  exists  and  + 
wslname  exists  and  vsarlat  exists  and  vsarlong  exists  and  + 
vsarnod  exists  and  vimmed  exists  then 
set  error  messages  off 
if  el  eq  0  then 
^(vessel  exists  in  database) 
write  "changing  values  in  vessel" 
delete  rows  from  #1 
else 

write  "loading  vessel" 
endif 

load  vessel 

.wslno  .wslname  .wslhin  .wslmake  .wslmod  .wslyear  + 
.wslton  .wslft  .wslin  .wslhp  .wsluse  .wsltype  + 
.wslprop  .wslhull  .wsleng  .wslfuel  .vconstr  .vdecal  + 
•vcmeyear  .voffno  .vhome  .vcall  .walue  .vsuper  .vmasts  + 
.vsailno  .vhlcolor  .vtrcolor  .vslcolor  .vcbcolor  .vdkcolor  + 
.vmarks 
end 

if  el  eq  0  then 

set  pointer  #1  el  for  vessel  where  vslhin  eq  .v3 
if  el  ne  0  then 
load  vessel 

•vl  .v2  .v3  .v4  .v5  .v6  .v7  .v8  .v9  .vlO  .vll  .vl2  .vl3  + 
.vl4  .vl5  .vl6  .vl7  .via  .vl9  .v20  .v21  .v22  .v23  .v24  + 
.v25  .v26  .v27  .v28  .v29  ,v30  .v31  .v32 
end 
endif 
endif 

set  pointer  #1  el  for  sar  where  folderno  -  .foldno 
if  el  eq  0  then 
set  var  difsar  to  "F" 
set  var  si  to  sardate  in  #1 
set  var  s2  to  sartime  in  #1 
set  var  s3  to  sarlat  in  #1 
set  var  s4  to  sarlong  in  #1 
set  var  s5  to  sarnod  in  #1 
set  var  s6  to  sarvhin  in  #1 

if  si  ne  .vsardate  or  s2  ne  .vsartime  or  s3  ne  .vsarlat  or  + 
s4  ne  .vsarlong  or  s5  ne  .vsarnod  or  s6  ne  .wslhin  then 
set  var  difsar  to  "T" 
endif 
else 

set  var  difsar  to  "T" 
endif 

if  difsar  eq  T  then 
write  "loading  sar" 
load  sar 

.vfoldno  .vucn  .vmucn  .vsardate  .vsarday  .vsartime  + 
.vsunrise  .vsunset  .vsarnod  .vsarpob  .wslhin  .vsarlat  + 
.vsarlong  .vdistoff  .vimmed  .vwinddir  .vwindspd  .wisdist  + 
.vclouds  .vceiling  .vseas  .vswells 
end 
endif 

write  "loading  owvsl" 
load  owvsl 

.wslhin  .vownid 
end 

write  "loading  opvsl" 
load  opvsl 

.wslhin  .vopid 
end 

if  e2  eq  0  then 
*(owner  exists  in  database) 
write  "changing  values  in  owner" 
delete  rows  from  #2 
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els* 

write  "loading  owner" 
endif 

load  owners 

.vowlname  .vowfname  .vowtni  .vowaddr  .vowcity  .vowst  .vowzip 
.vowtelno  .vowdob  .vownld 
end 

if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  whe  ownld  eq  .owlO 
if  e2  ne  0  then 
load  owners 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  .owlO 
end 
endif 
endif 

if  e3  eq  0  then 

^(operator  exists  in  database) 
write  "changing  values  in  operator" 
delete  rows  from  #3 

else 

write  "loading  operator" 
set  var  vopcrse  text 
endif 

load  operator 

.voplname  .vopfname  .vopmi  .vopaddr  .vopcity  .vopst  .vopzip 
.voptelno  .vopdob  .vopcrse  .vopid 
end 

if  e3  eq  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 
if  e3  ne  0  then 
load  operator 

.opl  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9  .oplO 
.opll 
end 
endif 
endif 

set  error  messages  on 
write  "  " 

write  "Return  to  correct  data  entered?  (Y)"  at  20  10 
write  "Notej  correct  only  errors  indicated  by  messages"  + 
at  22  5 

fillin  er  using  "("  at  20  42 
if  er  fails  or  er  eq  "Y"  then 
set  var  review  to  "Y" 
set  var  pg  to  1 

set  pointer  #1  el  for  vessel  where  vslhin  eq  .wslhin 
set  pointer  #2  e2  for  owners  where  ownid  eq  .vownid 
set  pointer  #3  e3  for  operator  where  opid  eq  .vopid 
break 
else 
newpage 

write  "Removing  duplicate  entries  from  tables"  at  10  10 

write  "Please  stand  by . "  at  15  12 

delete  duplicates  from  vessel 
delete  duplicates  from  owvsl 
delete  duplicates  from  opvsl 
delete  duplicates  from  owners 
delete  duplicates  from  operator 
endif 
else 
newage 

write  "Load  not  performed.  Required  information  missing."  + 
at  5  20 

write  "Required  information  includes:"  at  10  30 

write  "Sar  Date,  Folder  Number,  Unit  Case  Number"  at  12  35 

write  "Vessel  Name,  Sar  Latitude,  Sar  Longitude"  at  13  35 

write  "Sar  Nature  of  Distress"  at  14  35 

fillin  go  using  "Press  [ENTER]  to  return  to  data  entry"  + 

at  16  25 

set  var  pg  to  1 


set  var  review  to  "Y" 
break 
endlf 
endlf 

if  choice  eq  1  or  choice  eq  2  then 
*(enter  sar  units) 
newpage 

write  "Enter  sar  units?  (Y)"  at  12  20 
fillin  s_units  using  "("  at  12  37 
if- s  units  fails  or  s_units  eq  Y  then 
set  var  more  to  "'S" 
while  more  eq  Y  then 

set  var  vuwtime  to  .vsartime 
set  var  vuwdatfj  to  .vsardate 
set  var  vetadate  to  .vsardate 
set  var  vdateos  to  .vsardate 
set  var  valgdate  to  .vsardate 
set  var  vtowdate  i-n  .vsardate 
set  var  vdvmoord  to  .vsardate 
set  var  vsumoord  to  .vsardate 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  sarformS  with  all  at  3 

edit  var  vunit  vuwtime  vuwdate  voseta  vetadate  vostime  + 
vdateos  valgtir.ie  valgdate  vtowtime  vtowdate  vdvmoort  + 
vdvmoord  vsumoort  vsumoord  return  esc  pgdn 
if  ilreturn  eq  pgdn  then 
if  voseta  fails  then 
clear  vetadate 
set  var  vetadate  date 
endif 

if  vostime  fails  then 
clear  vdateos 
set  var  vdateos  date 
endif 

if  valgtime  fails  then 
clear  valgdate 
set  var  valgdate  date 
endif 

if  vtowtime  fails  then 
clear  vtowdate 
set  var  vtowdate  date 
endif 

if  vdvmoort  fails  then 
clear  vdvmoord 
set  var  vdvmoord  date 
endif 

if  vsumoort  fails  then 
clear  vsumoord 
set  var  vsumoord  date 
endif 

set  pointer  #1  el  for  sarunits  whe  foldno  eq  .vfoldno  and 

unitname  eq  .vunit 

newpage 

if  el  eq  0  then 

write  "Duplicate  entry  not  loaded" 
else 

write  "Loading  sarunits" 
load  sarunits 

.vfoldno  .vunit  .vuwtime  .vuwdate  .voseta  .vetadate  + 
.vostime  .vdateos  .valgtime  .valgdate  .vtowtime  + 
.vtowdate  .vdvmoort  .vdvmoord  .vsumoort  .vsumoord 
end 
endif 

write  "More  units  to  enter?  (N)"  at  23  20 
fillin  mrunits  using  "("  at  23  41 
if  mrunits  fails  or  mrunits  eq  N  then 
set  var  more  to  N 
else 

clear  vunit 
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clear  voseta 
clear  vostlme 
clear  valgtlme 
clear  vtowtlme 
clear  vdvmoort 
clear  vsumoort 
endif 
endif 

if  #return  eq  esc  then 
set  var  more  to  N 
endif 
endwhile 
endif 

*(enter  owner  information) 
newpage 

write  "Enter  additional  owners?  (N)"  at  12  20 
fillin  addlownr  using  "("  at  12  45 
if  addlownr  exists  and  addlownr  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 
newpage 

set  var  vowlname  to  unk 
set  var  vowfname  to  unk 

write  "Press  [PGDN]  after  entering  initial  information  to  + 
clicclc  ^  2 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  + 
at  2  10 

draw  sarform4  with  all  at  4 
edit  var  return  esc  pgdn 
if  ttreturn  ne  esc  then 

while  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  + 

and  ownfname  =  .vowfname 

newage 

while  e2  eg  0  then 

*{owner  last/first  name  exists  in  database) 

set  var  vowmi  to  ownmi  in  #2 

set  var  vowdob  to  owndob  in  #2 

set  var  vowaddr  to  ownaddr  in  #2 

set  var  vowcity  to  owncity  in  #2 

set  var  vowst  to  ownstate  in  #2 

set  var  vowzip  to  ownzip  in  #2 

set  var  vowtelno  to  owntelno  in  #2 

newpage 

draw  sarform4  with  all  at  3 
draw  sarformS  with  all  at  8 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 
set  var  ow5  to  owncity  in  #2 
set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  ow8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endif 
next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage 

write  "This  owner  does  not  exist  in  the  database"  + 
at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
clear  vowmi 
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clear  vowaddr 
clear  vowcity 
set  var  vovst  to  CA 
clear  vowzlp 
clear  vowtelno 

set  var  vowdob  to  01/01/1901 
compute  vmaxown  as  max  ownld  from  owners 
if  vmaxown  falls  then 
set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
label  redoown 
newpage 

write  '^Press  [PGDN]  to  load  data  or  [ESC’  to  quit"  at  1  1 
draw  sarform4  with  all  at  3 
draw  sarformS  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
if  #return  eq  pgdn  then 
newpage 

set  error  messages  off 
if  e2  eq  0  then 

*( owner  exists  in  database) 
write  "changing  values  in  owner" 
delete  rows  from  #2 
else 

write  "loading  owner" 
endif 

load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  .vowst  + 
.vowzip  .vowtelno  .vowdob  .vownid 
end 

if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  where  ownid  eq  .owlO 
if  e2  ne  0  then 
load  owners 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  .owlO 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 
write  "Notes  correct  only  errors  indicated  by  + 
messages"  at  20  5 

.  fillin  fixown  using  at  15  36 
if  fixown  exists  and  fixown  eq  Y  then 
goto  redoown 
endif 

set  pointer  #2  e2  for  owvsl  where  vhinown  eq  .wslhin  + 

and  idowner  eq  .vownid 

*(check  if  record  already  exists) 

newpage 

if  e2  ne  0  then 
load  owvsl 

.wslhin  .vownid 
end 
endif 
endif 
endif 

write  "More  owners  to  enter?  (N)"  at  20  20 
fillin  mrownrs  using  "("  at  20  42 
if  mrownrs  fails  or  mrownrs  eq  N  then 
set  var  more  to  N 
endif 
endwhile 
endif 
ne^age 

write  "Enter  additional  operators?  (N)"  at  12  20 


fillln  addloper  using  "("  at  12  48 
if  addloper  exists  and  addloper  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 
newpage 

*(enter  operator  information) 

write  "Press  [PGDN]  after  entering  initial  information  to  + 
check  if"  at  1  5 

write  "operator  exists  in  database.  Press  [ESC]  to  quit"  + 
at  2  10 

set  var  voplname  to  unk 
set  var  vopfname  to  unk 
draw  sar£orm6  with  all  at  4 
edit  var  return  esc  pgdn 
if  #return  ne  esc  then 

while  voplname  exists  and  vopfname  exists  then 
set  pointer  #3  e3  for  operator  where  oplname  =  + 
.voplname  and  opfname  =  .vopfname 
newpage 

while  e3  eq  0  then 

*(operator  last/first  name  exists  in  database) 

set  var  vopmi  to  opmi  in  #3 

set  var  vopdob  to  opdob  in  #3 

set  var  vopaddr  to  opaddr  in  #3 

set  var  vopcity  to  opcity  in  #3 

set  var  vopst  to  opstate  in  #3 

set  var  vopzip  to  opzip  in  #3 

set  var  voptelno  to  optelno  in  #3 

set  var  vopid  to  opid  in  #3 

set  var  vopcrse  to  opcourse  in  #3 

newpage 

draw  sarformS  with  all  at  3 
draw  sarform?  with  all  at  8 
write  "Correct  operator?  (N)"  at  21  20 
fillin  opfound  using  "("  at  21  38 
if  opfovKid  exists  and  opfound  eq  Y  then 
set  var  opl  to  .voplname 
set  var  op2  to  .vopfname 
set  var  op3  to  oprai  in  #3 
set  var  op4  to  opaddr  in  #3 
set  var  op5  to  opcity  in  #3 
set  var  op6  to  opstate  in  #3 
set  var  op7  to  opzip  in  #3 
set  var  op8  to  optelno  in  #3 
set  var  op9  to  opdob  in  #3 
set  var  oplO  to  opcourse  in  #3 
set  var  opll  to  opid  in  #3 
.  break 
endif 

next  #3  e3 
endwhile 
if  e3  ne  0  then 
nevraage 

write  "This  operator  does  not  exist  in  the  database"  + 
at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 

clear  vopmi 

clear  vopaddr 

clear  vopcity 

set  var  vopst  to  CA 

clear  vopzip 

clear  voptelno 

set  var  vopdob  to  01/01/1901 
clear  vopcrse 

compute  vmaxop  as  max  opid  from  operator 
if  vmaxop  fails  then 
set  var  vmaxop  to  0 
endif 

set  var  vopid  to  .vmaxop  +  1 
endif 


break 
endwhlle 
label  redooper 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  sarformS  with  all  at  3 
draw  sarform?  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
if  #return  eq  pgdn  then 
newpage 

set  error  messages  off 
if  e3  eq  0  then 

^(operator  exists  in  database) 
write  "changing  values  in  operator" 
delete  rows  from  #3 
else 

write  "loading  operator" 
set  var  vopcrse  text 
endif 

load  operator 

•voplname  .vopfname  .vopmi  .vopaddr  .vopcity  .vopst  + 

•  .vopzip  .voptelno  .vopdob  .vopcrse  .vopid 

end 

if  e3  eq  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 
if  e3  ne  0  then 
load  operator 

.opl  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9 
.oplO  .opll 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 

write  "Note:  correct  only  errors  indicated  by  messages" 

•at  20  5 

fillin  fixopr  using  at  15  36 
if  fixopr  exists  and  fixopr  eq  Y  then 

toto  redooper 
if 

set  pointer  #3  e3  for  opvsl  where  vhinoper  eq  .wslhin  + 

and  idoper  eq  .vopid 

*(check  if  record  already  exists) 

newpage 

if  e3  ne  0  then 
load  opvsl 

.wslhin  .vopid  . 
end 
endif 
endif 
endif 

write  "More  operators  to  enter?  (N)"  at  20  20 
fillin  mropers  using  "("  at  20  45 
if  mropers  fails  or  mropers  eq  N  then 
set  var  more  to  N 
endif 
endwhile 
endif 
nevroage 

write  "Enter  another  sar  case?  (Y)"  at  12  20 
fillin  cont  using  "("  at  12  44 
if  cont  fails  or  cont  eq  Y  then 
clear  all  variables 
set  var  pg  to  1 
set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
break 
else 


endlf 

endlf 

if  choice  eq  3  then 
set  var  review  to  "Y" 
set  var  pg  to  1 
endif 
endwhile 
else 
newpage 

write  "Enter  another  sar  case?  (Y)" 
Hllin  cont  using  "("  at  12  44 
if  cont  fails  or  cont  eq  Y  then 
clear  all  variables 
set  var  pg  to  1 
set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
else 

set  error  messages  off 
set  null  -0- 
set  var  pg  to  0 
endif 
endif 

if  pg  eq  1  then 
goto  begin 
endif 
return 
*{  end  ) 


at  12  20 


$C0MHAND 
ADD  SBD 

Add  Sar  with  Boarding 
H  R  Lang  and  J  D  Allen 
July  1987 

This  program  allows  the  user  to  enter  sar 
and  boarding  information, 
boarding,  vessel,  owners,  operator,  owvsl, 
opvsl,  sar 
none 
none 

cg4100al,  cg4100a2,  cg4100a3,  cg4100a4, 
cg4100a5,  cg4100a6,  cg4100a7,  cg4100a8, 
cg4100a9,  sbdforml,  sarforml,  sarformB, 
sarformS,  sarformS 


****)<(**********ilc:<t*****)<(*****:*c***yc**>if******yt**********5<t************:fc****  J 

set  error  messages  off 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  . "  at  10  10 

clear  all  variables 

set  null  ? 

set  var  pg  to  1 

^(initialize  edit  and  load  control  variables) 
set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
label  begin 
set  var  backup  to  N 
set  var  pgcount  to  0 
while  pg  gt  0  then  *(main  loop) 
newpage 

if  pg  eq  1  then 

* (enter  boarding/vessel  information) 
if  review  eq  N  and  backup  eq  N  then 


Program: 
Author : 

Date  Written: 
Description: 

Tables  Used: 

Temp  Tables: 
Reports  Used: 
Forms  Used: 
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set  var  pgcount  to  1 
set  var  voodate  to  .#date 
set  var  vbotlme  to  12:00 >00 
set  var  ws Inane  to  unk 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "vessel  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  cg4100al  with  all  at  4 
edit  var  return  esc  pgdn 
else 

write  "Press  [PGDN]  after  review/correction  or  [ESC]  to  quit"  + 
at  1  5 

draw  cg4100al  with  all  at  4 

edit  var  wslneune  vbodate  vbotime  vbono  return  esc  pgdn 
endif 

if  treturn  ne  esc  then 
while  wslhin  exists  then 

if  review  eq  N  and  backup  eq  N  then 

set  pointer  #1  el  for  vessel  where  vslhin  =  .wslhin 
newpage 

set  var  wslpob  to  0 
set  var  vadult  to  0 
set  var  vchild  to  0 
if  el  eq  0  then 

*(vessel  exists  in  database) 
set  var  wslno  to  vslno  in  #1 
set  var  ws  Inane  to  vs  Inane  in  #1 
set  var  wslmake  to  vslmake  in  #1 
set  var  wslmod  to  vslmodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  wslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
var  wslin  to  vsllenin  in  #1 
var  wslhp  to  vslhp  in  #1 
var  wsluse  to  vsluse  in  #1 
var  wsltype  to  vsltype  in  #1 
,et  var  wslprop  to  vslprop  in  #1 
set  var  wslhull  to  vslhull  in  #1 
set  var  wsleng  to  vsleng  in  #1 
set  var  wslfuel  to  vslfuel  in  #1 
set  var  vconstr  to  vslconst  in  #1 
set  var  vdecal  to  cmedecal  in  #1 
set  var  vcmeyear  to  cmeyear  in  #1 
set  var  voffno  to  vsloffno  in  #1 
set  var  vhome  to  homeport  in  #1 
set  var  vcall  to  vslcall  in  #1 
set  var  walue  to  vslvalue  in  #1 

set  var  vsuper  to  vslsuper  in  #1 

set  var  vmasts  to  vslmasts  in  #1 

set  var  vsailno  to  sailno  in  #1 

set  var  vhlcolor  to  hlcolor  in  #1 
to  trcolor  in  #1 
to  slcolor  in  #1 
to  cbcolor  in  #1 
to  dkcolor  in  #1 

set  var  vmarks  to  vslmarks  in  #1 
set  var  vl  to  vslno  in  #1 

to  vs Inane  in  #1 
to  vslhin  in  #1 
to  vslmake  in  #1 
to  vslmodel  in  #1 
to  vslyear  in  #1 
to  vsltons  in  #1 
to  vsllenft  in  #1 
to  vsllenin  in  #1 
set  var  vlO  to  vslhp  in  #1 
set  var  vll  to  vsluse  in  #1 
set  var  vl2  to  vsltype  in  #1 
set  var  vl3  to  vslprop  in  #1 
set  var  vl4  to  vslhull  in  #1 


set 

F't 

it 

at 


set  var  vtrcolor 
set  var  vslcolor 
set  var  vcbcolor 
set  var  vdkcolor 


set  var  v2 
set  var  v3 
set  var  v4 
set  var  v5 
set  var  v6 
set  var  v7 
set  var  v8 
set  var  v9 
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set  var  vl5  to  vsleng  in  #1 
set  var  vl6  to  vslfuel  in  #1 
set  var  vl7  to  vslconst  in  #1 
set  var  vl8  to  cmedecal  in  #1 
set  var  vl9  to  cmeyear  in  #1 
set  var  v20  to  vsloffno  in  #1 
set  var  v21  to  homeport  in  #1 
set  var  v22  to  vslcall  in  #1 
set  var  v23  to  vs  lvalue  in  #1 
set  var  v24  to  vslsuper  in  #1 
set  var  v25  to  vslmasts  in  #1 
set  var  v26  to  sailno  in  #1 
set  var  v27  to  hlcolor  in  #1 
set  var  v28  to  trcolor  in  #1 
set  var  v29  to  slcolor  in  #1 
set  var  v30  to  cbcolor  in  #1 
set  var  v31  to  dkcolor  in  #1 
set  var  v32  to  vslmarks  in  #1 
else 

^(vessel  does  not  exist  in  database) 
set  var  wslmake  to  unk 
set  var  wslmod  to  unk 
set  var  wslyear  text 
set  var  wslyear  to  1901 
set  var  wslnp  text 
set  var  wslhp  to  0 
set  var  wsluse  text 
set  var  wsluse  to  0 
set  var  wsltype  text 
set  var  wsltype  to  9 
set  var  wslprop  text 
set  var  wslprop  to  9 
set  var  wslnull  text 
set  var  wslhull  to  8 
set  var  wsleng  text 
set  var  wsleng  to  0 
set  var  wslfuel  text 
set  var  wslfuel  to  0 
set  var  vconstr  text 
set  var  vconstr  to  0 
set  var  wslton  to  0 
set  var  wslft  to  0 
set  var  wslin  to  0 
set  var  vdecal  to  N 
endif 
endif 
ne^^age 

write  "Press  [ESC]  to  quit  or  [PGDN]  to  move  down  a  page"  + 
at  1  1 

draw  cg4100al  with  all  at  3 
draw  cg4100a2  with  all  at  10 
edit  var  return  esc  pgdn 
break 
endwhile 
endif 
endif 

if  pg  eq  2  then 
*(enter  owner  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  2 
set  var  vowlname  to  unk 
set  var  vowfname  to  unk 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  cg4100a3  with  all  at  4 
edit  var  return  esc  pgdn 
endif 

if  #return  ne  esc  then 
if  review  eq  N  and  backup  eq  N  then 

271 


while  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  ^  .vowlname  and 

ownfname  •  .vowfname 

newpage 

while  e2  eg  0  then 

*(owner  last/first  name  exist  In  database) 

set  var  vowml  to  ownml  In  #2 

set  var  vowdob  to  owndob  In  #2 

set  var-vowaddr  to  ownaddr  In  #2 

set  var  vowclty  to  ownclty  in  #2 

set  var  vowst  to  ownstate  in  #2 

set  var  vowzlp  to  cwnzip  in  #2 

set  var  vowtelno  to  owntelno  in  #2 

newpage 

draw  cg4100a3  with  all  at  3 
draw  cg4100a4  with  all  at  8 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 
set  var  ow5  to  owncity  in  #2 
set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  ow8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endif 
next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage 

write  "This  owner  does  not  exist  in  the  database"  at  5  5 

fillin  go  using  "Frees  [ENTER]  to  continue"  at  9  5 

clear  vowmi 

clear  vowaddr 

clear  voweity 

set  var  vowst  to  CA 

clear  vowzip 

clear  vowtelno 

set  var,  vowdob  to  01/01/1901 

clear  vostatus 

compute  vmaxown  as  max  ownid  from  owners 
if  vmaxown  fails  then 
set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
endif 
newpage 

writa  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  cg4100a3  with  all  at  3 
draw  cg4100a4  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
endif 
endif 

if  pg  eq  3  then 
*(enter  operator  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  3 
if  vostatus  eg  1  then 
set  var  vopiname  to  .vowlname 
set  var  vopfname  to  .vowfname 


set  var  #return  to  pgdn 
else 

set  var  voplname  lo  unk 
set  var  vopfname  to  unk 

write  "Press  [PGDN]  after  entering  initial  iniormation  to  + 
clicclc  1  5 

write  "operator  exists  in  database.  Press  [ESC]  to  quit"  + 
at  2  10 

draw  cg4100a5  with  all  at  4 
edit  var  return  esc  pgdn 
endif 
endif 

if  treturn  ne  esc  then 

if  review  eg  N  and  backup  eq  N  then 
while  voplname  exists  and  vopfname  exists  then 

set  pointer  #3  e3  for  operator  where  oplname  =  .voplname  and  + 

opfname  =  .vopfname 

newpage 

v^hile  e3  eq  0  then 

^(operator  last/iirst  name  exist  in  database) 

set  var  vopmi  to  opmi  in  #3 

set  var  vopdob  to  opdob  in  #3 

set  var  vopaddr  to  opaddr  in  #3 

set  var  vopcity  to  opcity  in  #3 

set  var  vopst  to  opstate  in  #3 

set  var  vopzip  to  opzip  in  #3 

set  var  voptelno  to  optelno  in  #3  . 

set  var  vopcrse  to  opcourse  in  #3 

newpage 

draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  3 
write  "Correct  operator?  (N)"  at  21  20 
fillin  opfound  using  "("  at  21  38 
if  opfound  exists  and  opfound  eq  Y  then 
set  var  opl  to  .voplname 
set  var  op2  to  .vopfname 
set  var  op3  to  oprni  in  #3 
set  var  op4  to  opaddr  in  #3 
set  var  op5  to  opcity  in  #3 
set  var  op6  to  opstate  in  #3 
set  var  op7  to  opzip  in  #3 
set  var  op8  to  optelno  in  #3 
set  var  op9  to  opdob  in  #3 
set  var  oplO  to  opcourse  in  #3 
set  var  opll  to  opid  in  #3 
set  var  vopid  to  opid  in  #3 
break 
endif 

next  #3  e3 
endwhile 
if  e3  ne  0  then 
newpage 

write  "This  operator  does  not  exist  in  the  database"  at  5  5 
fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
if  vostatus  eq  1  then 
set  var  vopmi  to  .vowmi 
set  var  vopaddr  to  .vowaddr 
set  var  vopcity  to  .vowcity 
set  var  vopst  to  .vowst 
set  var  vopzip  text 
set  var  vopzip  to  .vowzip 
set  var  voptelno  text 
set  var  voptelno  to  .vowtelno 
set  var  vopcrse  text 
set  var  vopdob  to  .vowdob 
else 

clear  vopmi 
clear  vopaddr 
clear  vopcity 
set  var  vopst  to  CA 


clear  vopzip 
clear  voptelno 
set  var  vopdob  to  01/01/1901 
endif 

clear  vopcrse 

compute  vmaxop  as  max  old  from  operator 
if  vmaxop  fails  then 
set  var  vmaxop  to  0 
endif 

set  var  vopid  to  .vmaxop  +  1 
endif 
break 
endwhile 
endif 
nemage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  8 
if  vostatus  eq  1  then 
edit  var  vopcrse  return  esc  pgup  pgdn 
else 

edit  var  return  esc  pgup  pgdn 
endif 
endif 
endif 

if  pg  eq  4  then 

*( enter  boarding  location  information) 
ir  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  4 
set  var  vobsbody  to  text 
set  var  vobsbody  to  "Monterey  Bay" 
set  var  vobcount  to  Monterey 
set  var  vobscity  to  Monterey 
set  var  vobstate  to  CA 
set  var  vobslat  to  00.000 
set  var  vobslong  to  000.000 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  down  + 
a  page"  at  1  1 

draw  cg4100a7  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
endif 

if  pg  eg  5  then 

*( enter  boarding  violation/ unsafe  condition  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  5 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1  . 

draw  cg4100a8  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
endif 

if  pg  eq  6  then 

*(enter  boarding  officer  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  6 
set  var  vbounit  text 
set  var  vbounit  to  "CG  Group  Monterey" 
set  var  vbodist  text 
set  var  vbodist  to  11 
set  var  vboopfac  text 
set  var  vboopfac  to  36268 
set  var  vbosrise  to  06:00:00 
set  var  vbosset  to  19:00:00 
set  var  vweapons  to  0 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  cg4100a9  with  all  at  3 


edit  var  return  esc  pgup  pgdn 
endlf 

If  pg  eq  7  then 

’^Tenter  additional  vessel  information) 
if  review  eq  N  and  backup  eg  N  then 
set  var  pgcount  to  7 
if  el  ne  0  then 
set  var  walue  to  $0 
set  var  vmasts  text 
set  var  vmasts  to  0 
set  var  vslcolor  to  unk 
set  var  vhlcolor 
set  var  vtrcolor 
var  vcbcolor 


to  unk 
to  unk 


to  unk 
to  unk 


set 

set  var  vdkcolor 
endif 
endlf 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  sbdforml  with  all  at  3 

edit  var  voffno  vhome  vcall  walue  vsuper  vmasts  vslcolor  vsailno  + 
vhlcolor  vtrcolor  vcbcolor  vdk.-’.'loi  v.narks  return  esc  pgup  pgdn 
endif 


if  pg  eq  8  then 

*(enter  general  sar  informatio 
it  review  eq  N  and  backup  eq  M  tLen 
set  var  pgcount  to  8 
set  var  vsardate  to  .vbodate 
set  var  vsartime  to  .vbotime 
set  var  vsarlat  to  .vobslat 
set  var  vsarlong  to  .vobslong 
set  var  vdistoft  to  0 
set  var  vsarpob  to  .wslpob 
set  var  vsarday  to  .vboday 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  sarforml  with  all  at  3 

edit  var  vfoldno  vucn  vmucn  vsardate  vsarday  vsartime  vsarnod  + 
vimmed  vsarlat  vsarlong  vdistoff  vsarpob  return  esc  pgdn 
endif 

if  pg  eq  9  then 

* [enter  sar  weather  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  9 
set  var  vsunrise  to  .vbosrise 
set  var  vsunset  to  .vbosset 
set  var  vceiling  to  0 
set  var  vclouds  to  0 
set  var  wisdist  to  0 
set  var  vwinddir  to  0 
set  var  vwindspd  to  0 
set  var  vseas  to  0 
set  var  vswells  to  0 
endif 

write  "Press  [ESC]  to  quit  or  [PGUP]  -  to  move  up  a  page"  at  1  1 
draw  sarform9  with  all  at  3 

edit  var  vsunrise  vsunset  vceiling  vclouds  wisdist  vwinddir  + 
vwindspd  vseas  vswells  return  esc  pgup 
set  var  loadmenu  to  "Y" 
endif 


if  treturn  eq  pgup 
set  var  backup  tc 


then 
cup  to  Y 
if  pg  gt  1  then 
set  var  pg  to  .pg  -  1 
else 

set  var  pg  to  1 
endif 
endif 

if  #return  eq  pgdn  then 
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Please  stand  by  . "  at  10  10 


if  pg  It  9  then 
set  var  pg  to  .pg  *  1 
If  pgcount  It  .pg  then 
set  var  backup  to  N 
endif 
else 

set  var  pg  to  9 
endif 
endif 

if  treturn  eq  esc  then 
set  var  pg  to  0 
set  var  backup  to  N 
endif 

endwhile  *(end  of  main  loop) 
newpage 

write  "Program  loading  in  progress, 
if  loadmenu  eq  "Y"  then 
set  var  choice  to  0 
while  choice  It  1  or  choice  gt  3  then 
newpage 

write  "Data  Load  Options"  at  2  20 

write  " . "  at  3  20 

write  "Enter:"  at  5  20 

write  "1-To  load  the  data  into  the  database"  at  6  20 

write  "2-To  ignore  the -data  entered"  at  7  20 

write  "3-To  go  back  and  verify  data  entered"  at  8  20 

write  "Your  choice:  "  at  10  20 

fillin  choice  using  "  "  at  10  33 

newpage 

if  choice  eq  1  then 
*(test  for  required  information) 
set  var  test  to  "F" 

if  vbodate  exists  and  vbotime  exists  and  vbono  exists  and  + 
wslname  exists  and  vobslat  exists  and  vobslong  exists  then 
if  vsardate  exists  and  vfoldno  exists  and  vucn  exists  and  + 
wslname  exists  and  vsarlat  exists  and  vsarlong  exists  and  + 
vsarnod  exists  and  vinuned  exists  then 

if  wiol54  exists  or  wiol55  exists  or  wiol56  exists  or  + 
wiol57  exists  or  wiol58  exists  or  wiol59  exists  or  + 
wioieo  exists  or  wiol61  exists  or  wiol62  exists  or  + 
wiol63  exists  then 
set  var  test  to  "T" 
endif 

if  wiol64  exists  or  wiol65  exists  or  wicl66  exists  or  + 
wiol67  exists  or  wiol68  exists  or  vuns69  exists  or  vuns70  + 
exists  or  vuns71  exists  or  vuns72  exists  or  vuns73  exists  then 
set  var  test  to  "T" 
endif 

if  vuns74  exists  or  vuns75  exists  or  vuns76  exists  or  vuns77  + 
exists  or  vuns78  exists  or  vuns79  exists  then 
set  var  test  to  "T" 
endif 

if  test  eq  "T"  then 
set  error  messages  off 
if  el  eq  0  then 
^(vessel  exists  in  database) 
write  "changing  values  in  vessel" 
delete  rows  from  #1 
else 

write  "loading  vessel" 
endif 

load  vessel 

.wslno  .wslname  .wslhin  .wslmake  .wslmod  .wslyear  + 
.wslton  .wslft  .wslin  .wslhp  .wsluse  .wsltype  + 
.wslprop  .wslhull  .wsleng  .wslfuel  .vconstr  .vdecal  + 
.vcmeyear  .voffno  .vhome  .vcall  .walue  .vsuper  .vmasts  + 
.vsailno  .vhlcolor  .vtrcolor  .vslcolor  .vcbcolor  + 
.vdkcolor  .vmarks 
end 

if  el  eq  0  then 
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set  pointer  #1  el  for  vessel  whe  vslhln  eq  .v3 
If  ei  ne  0  then 
load  vessel 

.vl  .v2  .v3  .v4  .v5  .v6  .v7  .v8  .v9  .vlO  .vll  .vl2  + 
.vl3  .vl4  .vl5  .vl6  .vl7  .vl8  .vl9  .v20  .v21  .v22  + 
.v23  .v24  .v25  .v26  .v27  .v28  .v29  .v30  .v31  .v32 
end 
endif 
endif 

write  "loading  owvsl" 
load  owvsl 

.wslhin  .vownid 
end 

write  "loading  opvsl" 
load  opvsl 

•wslhin  .vopid 
end 

if  vostatus  eq  1  then 
load  opown 

•vownid  •vopid 
end 
endif 

set  pointer  -'1  for  boarding  where  bono  =  •vbono 
if  el  eq  0  than 
set  var  ditbo  to  "F" 
set  var  bl  to  bodate  in  #1 
set  var  b2  to  botime  in  #1 
set  var  b3  to  obslat  in  #1 
set  var  b4  to  obslong  in  #1 

if  bl  ne  •vbodate  or  b2  ne  •vbotime  or  b3  ne  •vobslat  or  + 
b4  ne  .vobslong  then 
set  var  difbo  to  "T" 
endif 
else  . 

set  var  difbo  to  "T" 
endif 

if  difbo  eq  T  then 
write  "loading  boarding" 
load  boarding 

•  •vbodate  •vbotime  •vbono  •wslpob  •vadult  •vchild  + 
•vostatus  •vobsbody  •vobcount  •vobscity  •vobstate  + 

•  vobslat  •vobilong  •wiol54  •wiolSS  •wiol56  + 

•  wiol57  •wiolSS  •vviol59  •wiol60  •wiol61  •wiol62  + 
.wiol63  •wiol64  •vvioi65  •wioies  •wiolS?  •wiolSS  + 
•vuns69  •vuns70  •vuns71  •vuns72  •vunsyS  •vuns74  + 

•vuns75  •vuns76  •vuns77  •vuns78  •vuns79  .vboreml  + 
•vborem2  •vboremS  •vboname  •vborate  •vbounit  .vbodist  + 

•  vboopfac  •vboday  •vbosrise  •vbosset  •wslhin  + 

•  weapons 
end 

endif 

set  pointer  #1  el  for  sar  where  folderno  =  •vfoldno 
if  el  eq  0  then 
set  var  difsar  to  "F" 
set  var  si  to  sardate  in  #1 
set  var  s2  to  sartime  in  #1 
set  var  s3  to  sarlat  in  #1 
set  var  s4  to  sarlong  in  #1 
set  var  s5  to  sarnod  in  #1 
set  var  s6  to  sarvhin  in  #1 

if  si  ne  •vsardate  or  s2  ne  .veartime  or  s3  ne  •vsarlat  + 
or  s4  ne  •vsarlong  or  s5  ne  .vsarnod  or  s6  ne  •wslhin  + 
then 

set  var  difsar  to  "T" 
endif 
else 

set  var  difsar  to  "T" 
endif 

if  difsar  eq  T  then 
write  "loading  sar" 


load  sar 

.vfoldno  .vucn  .vmucn  .vsardate  .vsarday  .vsartime  + 
.vsunrlse  .vsunset  .vsarnod  .vsarpob  .wslhln  + 
.vsarlat  .vsarlong  .vdlstoff  .vimmed  .vwinddir  + 
.vwlndspd  .wisdlst  .vclouds  .vcelling  .vseas  .vswells 
end 
endlf 

if  e2  eg  0  then 
*(owner  exists  in  database) 
write  "changing  values  in  owner" 
delete  rows  from  #2 
else 

write  "loading  owner" 
endif 

load  owners 

•vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  .vowst  + 
.vowzip  .vowtelno  .vowdob  .vownid 
end 

if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  whe  ownid  eq  .owlO 
if  e2  ne  0  then 
load  owners 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  .owlO 
end 
endif 
endif 

if  e3  eq  0  then 
^(operator  exists  in  database) 
write  "changing  values  in  operator" 
delete  rows  from  #3 
else 

write  "loading  operator" 
endif 

load  operator 

.voplname  .vopfname  .vopmi  .vopaddr  .vopcity  .vopst  + 
.vopzip  .voptelno  .vopdob  .vopcrse  .vopid 
end 

if  e3  eq  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .epll 
if  e3  ne  0  then 
load  operator 

.opl  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9  + 
.oplO  .opll 
end 
endif 
endif 

write  "  " 

set  error  messages  on 

*( return  option  in  case  of  entry/edit  errors) 
write  "Return  to  correct  data  entered?  (Y)"  at  20  10 
write  "Note:  correct  only  errors  indicated  by  messages"  + 
at  22  5 

fillin  er  using  "("  at  20  42 
if  er  fails  or  er  eq  "Y"  then 
set  var  review  to  "Y" 
set  var  pg  to  1 

set  pointer  #1  el  for  vessel  where  vslhin  eq  .wslhin 
set  pointer  #2  e2  for  owners  where  ownid  eq  .vownid 
set  pointer  #3  e3  for  operator  where  opid  eq  .vopid 
break 
else 
nex^age 

write  "Removing  duplicate  entries  from  tables"  at  10  10 

write  "Please  stand  by . "  at  15  12 

delete  duplicates  from  vessel 
delete  duplicates  from  owvsl 
delete  duplicates  from  opvsl 
delete  duplicates  from  opown 
delete  duplicates  from  owners 
delete  duplicates  from  operator 
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endif 

endif 

endif 

else 

newpage 

write  "Load  not  performed.  Required  information  missing."  + 
at  5  20 

write  "Required  information  includes  s"  at  10  30 
write  "Boarding  Date,  Boarding  Time,  Boarding  Number"  at  12  35 
write  "Vessel  Name,  Boarding  Latitude,  Boarding  Longitude"  + 
at  13  35 

write  "A  Violation  or  Unsafe  Condition"  at  14  35 
write  "Sar  Date,  Folder  Number,  Unit  Case  Number"  at  15  35 
write  "Vessel  Name,  Sar  Latitude,  Sar  Longitude"  at  16  35 
write  "Sar  Nature  of  Distress"  at  17  35 
fillin  go  using  "Press  [ENTER]  to  return  to  data  entry"  + 
at  18  25 
set  var  pg  to  1 
set  var  review  to  "Y" 
break 
endif 
endif 

if  choice  eq  1  or  choice  eq  2  then 
*(enter  sar  units) 
newpage 

write  "Enter  sar  units?  (Y)"  at  12  20 
fillin  s_units  using  "("  at  12  37. 
if  s  units  fails  or  s_units  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 

set  var  vuwtime  to  .vsartime 
set  var  vuwdate  to  .vsardate 
set  var  vetadate  to  .vsardate 
set  var  vdateos  to  .vsardate 
set  var  valgdate  to  .vsardate 
set  var  vtowdate  to  .vsardate 
set  var  vdvmoord  to  .vsardate 
set  var  vsumootd  to  .vsardate 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  sarformS  with  all  at  3 

edit  var  vunit  vuwtime  vuwdate  voseta  vetadate  vostime  + 
vdateos  valgtime  valgdate  vtowtime  vtowdate  vdvmoort  + 
vdvmoord  vsumoort  vsumoord  return  esc  pgdn 
if  #return  eg  pgdn  then 
if  voseta  fails  then 
clear  vetadate 
set  var  vetadate  date 
endif 

if  vostime  fails  then 
clear  vdateos 
set  var  vdateos  date 
endif 

if  valgtime  fails  then 
clear  valgdate 
set  var  valgdate  date 
endif 

if  vtowtime  fails  then 
clear  vtowdate 
set  var  vtowdate  date 
endif 

if  vdvmoort  fails  then 
clear  vdvmoord 
set  var  vdvmoord  date 
endif 

if  vsumoort  fails  then 
clear  vsumoord 
set  var  vsumoord  date 
endif 

set  pointer  #1  el  for  sarunits  whe  foldno  eq  .vfoldno  and  + 
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unitname  eq  .vunlt 
newpage 

if  el  eq  0  then 

write  "Duplicate  entry  not  loaded" 
else 

write  "Loading  sarunits" 
load  sarunits 

.vfoldno  .vunit  .vuwtime  .vuwdate  .voseta  .vetadate  + 
•vostime  .vdateos  .valgtirae  .valgdate  .vtowtime  + 
.vtowdate  .vdvmoort  .vdvmoord  .vsumoort  .vsumoord 
end 
endif 

write  "More  units  to  enter?  (N)"  at  23  20 
fillin  mrunits  using  "("  at  23  41 
if  mrunits  fails  or  mrunits  eq  N  then 
set  var  more  to  N 
else 

clear  vunit 
clear  voseta 
clear  vostime 
clear  valgtime 
clear  vtowtime 
clear  vdvmoort 
clear  vsumoort 
endif 
endif 

if  #return  eq  esc  then 
set  var  more  to  N 
endif 
endwhile 
endif 

*( enter  additional  owners) 
nevroage 

write  "Enter  additional  owners?  (N)"  at  12  20 
fillin  addl_own  using  "("  at  12  45 
if  addl_own  exists  and  addl_own  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 
set  var  vowlname  to  unk 
set  var  vowfname  to  unk 
nemage 

write  "Press  [PGDN]  after  entering  initial  information  to  + 
check  if"  at  1  5 

write  "owner  exists  .in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  cg4100a3  with  all  at  4 
edit  var  return  esc  pgdn 
if  #return  ne  esc  then 

while  vowlname  exists  and  vowfname  exists  then 
set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  + 
and  ownfname  =  .vowfname 
newpage 

while  e2  eg  0  then 

*(owner  last/first  name  exist  in  database) 

set  var  vowmi  to  ownmi  in  #2 

set  var  vowdob  to  owndob  in  #2 

set  var  vowaddr  to  ownaddr  in  #2 

set  var  vowcity  to  owncity  in  #2 

set  var  vowst  to  ownstate  in  #2 

set  var  vowzip  to  ownzip  in  #2 

set  var  vowtelno  to  owntelno  in  #2 

newpage 

draw  cg4100a3  with  all  at  3 
draw  cg4100a4  with  all  at  8 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 
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set  var  owS  to  ownclty  in  #2 
set  var  ow6  to  ownstate  In  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  ow8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage 

write  "This  owner  does  not  exist  in  the  database"  + 
at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 

clear  vowmi 

clear  vowaddr 

clear  voweity 

set  var  vowst  to  CA 

clear  vowzip 

clear  vowtelno 

set  var  vowdob  to  01/01/1901 
clear  vostatus 

compute  vmaxown  as  max  ownid  from  owners 
if  vmaxown  fails  then 
set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
label  redoown 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  cg4100a3  with  all  at  3 
•  draw  sarformS  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
if  ttreturn  eq  pgdn  then 
set  error  messages  off 
newpage 

if  e2  eq  0  then 
*(owner  exists  in  database) 
write  "changing  values  in  owner" 
delete  rows  from  #2 
else 

write  "loading  owner" 
endif 

load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .voweity  .vowst  + 
.vowzip  .vowtelno  .vowdob  .vownid 
end 

if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  whe  ownid  eq  .owlO 
if  e2  ne  0  then 
load  owners 

.owl  .ow2  .ow3  .ow4.  ,ow5  .ow6  .ow7  .ow8  ,ow9  .owlO 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 

write  "Notet  correct  only  errors  indicated  by  messages"  + 

at  20  5 

fillin  fixown  using  "("  at  15  36 
if  fixown  exists  and  fixown  eq  7  then 
goto  redoown 
endif 

set  pointer  #2  e2  for  owvsl  where  vhinown  eq  .wslhin  + 
and  idowner  eq  .vownid 


’''(check  if  record  already  exists) 
newpage 

if  e2  ne  0  then 
load  owvsl 

.wslhln  .vownid 
end 
endif 
endlf 
endif 

write  "More  owners  to  enter?  (N)"  at  20  20 
fillin  mrownrs  using  "("  at  20  42 
if  mrownrs  fails  or  mrownrs  eq  N  then 
set  var  more  to  N 
endif 
endwhile 
endif 

*(enter  additional  operators) 
newpage 

write  "Enter  additional  operators?  (N)"  at  12  20 
fillin  addl_opr  using  "("  at  12  48 
if  addl_opr  exists  and  addl_opr  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 
set  var  voplname  to  unk 
set  var  vopfname  to  unk 
newpage 

write  "Press  [PGDN]  after  entering  initial  information  to 
check  if"  at  1  5 

write  "operator  exists  in  database.  Press  [ESC]  to  quit"  + 
at  2  10 

draw  cg4100a5  with  all  at  4 
edit  var  return  esc  pgdn 
if  #return  ne  esc  then 

while  voplname  exists  and  vopfname  exists  then 

set  pointer  #3  e3  for  operator  where  oplname  =  .voplname 

and  opfname  =  .vopfname 

newpage 

while  e3  eq  0  then 

^(operator  last/first  name  exist  in  database) 

set  var  vopmi  to  opmi  in  #3 

set  var  vopdob  to  opdob  in  #3 

set  var  vopaddr  to  opaddr  in  #3 

set  var  vopcity  to  opcity  in  #3 

set  var  vopst  to  opscate  in  #3 

set  var  vopzip  to  opzip  in  #3 

set  var  voptelno  to  optelno  in  #3 

set  var  vopcrse  to  opcourse  in  #3 

newpage 

draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  8 
write  "Correct  operator?  (N)"  at  21  20 
fillin  opfound  using  "("  at  21  39 
if  opfound  exists  and  opfound  eq  Y  then 
set  var  opl  to  .voplname 
set  var  op2  to  .vopfname 
set  var  op3  to  opmi  in  #3 
set  var  op4  to  opaddr  in  #3 
set  var  op5  to  opcity  in  #3 
set  var  op6  to  opstate  in  #3 
set  var  op7  to  opzip  in  #3 
set  var  op8  to  optelno  in  #3 
set  var  op9  to  opdob  in  #3 
set  var  oplO  to  opcourse  in  #3 
set  var  opll  to  opid  in  #3 
set  var  vopid  to  opid  in  #3 
break 
endif 

next  #3  e3 
endwhile 
if  e3  ne  0  then 
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swpage 
rite  "This 


operator  does  not  exist  in  the  database" 


nev 
wri 

at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 

clear  vopmi 

clear  vopaddr 

clear  vopcity 

set  var  vopst  to  CA 

clear  vopzip 

clear  voptelno 

clear  vopcrse 

set  var  vopdob  to  01/01/1901 
compute  vmaxoper  as  max  opid  from  operator 
if  vmaxoper  fails  then 
set  var  ^nnaxoper  to  0 
endif 

set  var  vopid  to  .vmaxoper  +  1 
endif 
break 
endwhile 
label  redooper 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
if  ttreturn  eq  pgdn  then 
newpage 

set  error  messages  off 
if  e3  eq  0  then 

^(operator  exists  in  database) 
write  "changing  values  in  operator" 
delete  rows  from  #3 
else 

write  "loading  operator" 
endif 

load  operator 

.voplname  .vopfname  .vopmi  .vopaddr  .vopcity  .vopst  + 
.vopzip  .voptelno  .vopdob  .vopcrse  .vopid 
end 

if  e.”  eq  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 
if  e3  ne  0  then 
load  operator 

.opl  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9  + 
.oplO  .opll 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 

write  "Note;  correct  only  errors  indicated  by  messages"  + 

at  20  5 

fillin  fixopr  using  "("  at  15  36 
if  fixopr  exists  and  fixopr  eq  Y  then 
goto  redooper 

set  pointer  i3  e3  for  opvsl  where  vhinoper  eq  .wslhin  + 

and  idoper  ea  .vopid 

*(check  if  record  already  exists) 

newpage 

if  e3  ne  0  then 
load  opvsl 

.wslhin  .vopid 
end 
endif 
endif 
endif 

write  "More  operators  to  enter?  (N)"  at  20  20 
fillin  mropers  using  "("  at  20  45 
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If  mropers  falls  or  mropers  eq  N  then 
set  var  more  to  N 
endlf 
endwhlle 
endlf 
newpage 

write  "Enter  another  sar  with  boarding?  (Y)"  at  12  20 
fillln  cont  using  "("  at  12  53 
If  cont  falls  or  cont  eq  Y  then 

reset  variables  to  start  condition) 
clear  all  variables 


set  var  pg  to  1 
set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
break 
else 

set  null  -0- 
set  var  pg  to  0 
endlf 
endlf 

If  choice  eq  3  then 
set  var  review  to  "Y" 
set  var  pg  to  1 
endlf  ■ 

endwhlle 
else 
newpage 

write  "Enter  another  sar  with  boarding?  (Y)"  at  12  20 
flllin  cont  using  "("  at  12  53 
if  cont  fails  or  cont  eq  Y  then 
*( reset  variables  to  start  condition) 
clear  all  variables 
set  var  pg  to  1 
set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
else 

set  error  messages  off 
set  null  -0- 
set  var  pg  to  0 
endlf 
endlf 

If  pg  eq  1  then 
goto  begin 
endlf 
return 
*(  end  ) 
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Add  Sar  Units 
H  R  Lang  and  J  0  Allen 
August  1987 

This  program  allows  the  user  to  input  sar 

unit  data. 

sar,  sarunits 

none 

none 

sarformS 


**ifc******:fc:fc******:lt****)<t**************A*i*[i<r***i<c*****i<t********************  J 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 
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write  “Program  loading  in  progress.  Please  stand  by . "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  more  to  Y 
set  var  vfoldno  text 
set  var  vunit  text 
while  more  eq  Y  then  *(main  loop) 
set  var  done  to  Y 
newpage 

write  “Enter  folder  number  of  sar  case:  "  at  10  5 
fillin  vfoldno  using  “  “  at  10  37 
write  “Enter  name  of  sar  unit  to  be  added:  “  at  15  5 
fillin  vunit  using  “  “  at  15  40 
if  vfoldno  exists  and  vunit  exists  then 
set  pointer  #1  el  for  sar  where  folderno  eq  .vfoldno 
if  el  eq  0  then 

set  pointer  #2  e2  for  sarunits  where  foldno  eq  .vfoldno  and  + 
unitname  eq  .vunit 
if  e2  eq  0  then 
ne\^age 

write  “This  record  already  exists  in  the  database"  at  15  15 
write  "Press  any  key  to  continue"  at  18  20 
pause 
else 

set  var  vuwtime  to  sartime  in  #1 
set  var  vuwdate  to  sardate  in  #1 
set  var  vetadate  to  sardate  in  #1 
set  var  vdateos  to  sardate  in  #1 
set  ^’ar  valgdate  to  sardate  in  #1 
set  var  vtowdate  to  sardate  in  #1 
set  var  vdvmoord  to  sardate  in  #1 
set  var  vsumoord  to  sardate  in  #1 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  sarformS  with  all  at  3 

edit  var  vunit  vuwtime  vuwdate  voseta  vetadate  vostime  vdateos  + 
valgtime  valgdate  vtowtime  vtowdate  vdvmoort  vdvmoord  vsumoort  + 
vsumoord  return  esc  pgdn 
if  #return  eg  pgdn  then 
if  voseta  fails  then 
clear  vetadate 
set  var  vetadate  date 
endif 

if  vostime  fails  then 
clear  vdateos 
set  var  vdateos  date 
endif 

if  valgtime  fails  then 
clear  valgdate 
set  var  valgdate  date 
endif 

if  vtowtime  fails  then 
clear  vtowdate 
set  var  vtowdate  date 
endif 

if  vdvmoort  fails  then 
clear  vdvmoord 
set  var  vdvmoord  date 
endif 

if  vsumoort  fails  then 
clear  vsumoord 
set  var  vsumoord  date 
endif 

load  sarunits 

.vfoldno  .vunit  .vuwtime  .vuwdate  .voseta  .vetadate  + 
.vostime  .vdateos  .valgtime  .valgdate  .vtowtime  + 

.vtowdate  .vdvmoort  .vdvmoord  .vsumoort  .vsumoord 
end 
endif 
endif 
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else 

newpage 

write  "This  folder  number  does  not  exist  in  the  database"  at  10  10 
write  "Do  you  wish  to  reenter  folder  number?  (7)"  at  15  10 
fillin  reenter  using  "("  at  IS  48 
if  reenter  fails  or  reenter  eg  7  then 
set  var  done  to  N 
endif 
endif 
endif 

if  done  eg  7  then 
newpage 

write  "More  sar  units  to  enter?  (N)"  at  15  20 
fillin  mrunits  using  "("  at  15  45 
if  mrunits  fails  or  mrunits  eg  N  then 
set  var  more  to  N 
else 

clear  all  variables 
set  var  more  to  7 
endif 
endif 

endwhile  *(end  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
end  ) 


$C0MMAND 
ADD  BRD 


Programs  • 
Author  3 
Date  Written: 
Description: 

Tables  Used: 

Temp  Tables: 
Reports  Used: 
Forms  Used: 


Add  Boarding 
H  R  Lang  ana  J  D  Allen 
July  1987 

This  program  allows  the  user  to  input 
boarding  information. 

boarding,  vessel,  owners,  operator,  owvsl,’ 

opvsl . 

none 

none 

cg4100al,  cg4100a2,  cg4100a3,  cg4100a4, 
cg4100a5,  cg4100a6,  cg4100a7,  cg4100a8, 
cg4100a9,  sarform5 


set  error  messages  on 
set  messages  off 
set  escape  off 
ne’^age 

write  "Program  loading  in  progress.  Please  stand  by  . "  at  10  10 

clear  all  variables 

set  null  ? 

set  var  og  to  1 

^(initialize  edit  and  load  control  variables) 
set  var  review  to  N 
set  var  loadmenu  to  N 
label  begin 
set  var  backup  to  N 
set  var  fixhin  to  N 
set  var  pgcount  to  0 
while  pg  gt  0  then  *(main  loop) 
newpage 

if  pg  eg  1  then 

*(enter  boarding/vessel  information) 
if  review  eg  N  and  backup  eg  N  then 
set  var  pgcount  to  1 


I 
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set  var  vbodate  to  .#date 
set  var  vbotlme  to  12:00 <00 
set  var  wslname  to  unk 

write  "Press  [PGDN]  after  entering  Liitial  information  to  check  + 
if"  at  1  5 

write  "vessel  exists  in  database.  Press  [ESCJ  to  quit"  at  2  10 
draw  cg4100al  with  all  at  4 
edit  var  return  esc  pgdn 
else 

write  "Press  [PGDN]  after  review/correction  or  [ESC]  to  quit"  + 
at  1  5 

draw  cg4100al  with  all  at  4 
if  fixnin  eq  N  then 

edit  var  wslname  vbodate  vbotime  vbono  wslno  return  esc  pgdn 
else 

edit  var  return  esc  pgdn 
endif 
endif 

if  #return  ne  esc  then 

if  review  eq  N  and  backup  eq  N  or  fixhin  eq  Y  then 
set  var  pgcount  to  1 
while  wsihin  exists  then 

set  pointer  #1  el  for  vessel  where  vslhin  =  .wsihin 
newpage 

set  var  wslpob  to  0 
set  var  vaduit  to  0 
set  var  vchild  to  0 
if  ei  eq  0  then 

’^(vessel  exists  in  database) 
set  var  wslno  to  vslno  in  #1 
set  var  wslname  to  vslname  in  #1 
set  var  wslmake  to  vslmake  in  #1 
set  var  wslmod  to  vslmodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  wslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
set  var  wslin  to  vsllenin  in  #1 
set  var  wslhp  to  vslhp  in  #1 
set  var  wsluse  to  vsluse  in  #1 
set  var  wsltype  to  vsltype  in  #1 
set  var  wslprop  to  vslprop  in  #1 
set  var  wslhull  to  vslhull  in  #1 
set  var  wsleng  to  vsleng  in  #1 
set  var  wslfuel  to  vslfuel  in  #1 
set  var  vconstr  to  vslconst  in  #1 
set  var  vdecal  to  cmedecal  in  #1 
set  var  vcmeyear  to  cmeyear  in  #1 
set  var  voffno  to  vsloffno  in  #1 
set  var  vhome  to  homeport  in  #1 
set  var  vcall  to  vslcall  in  #1 
set  var  walue  to  vslvalue  in  #1 
set  var  vsuper  to  vslsuper  in  #1 
set  var  vmasts  to  vslmasts  in  #1 
set  var  vsailno  to  sailno  in  #1 
set  var  vhlcolor  to  hlcolor  in  #1 
set  var  vtrcolor  to  trcolor  in  #1 
set  var  vslcolor  to  slcolor  in  #1 
set  var  vcbcolor  to  cbcolor  in  #1 
set  var  vdkcolor  to  dkcolor  in  #1 
set  var  vmarks  to  vslmarks  in  #1 
set  var  vl  to  vslno  in  #1 
set  var  v2  to  vslname  in  #1 
set  var  v3  to  vslhin  in  #1 
set  var  v4  to  vslmake  in  #1 
set  var  v5  to  vslmodel  in  #1 
set  var  v6  to  vslyear  in  #1 
set  var  v7  to  vsltons  in  #1 
set  var  v8  to  vsllenft  in  #1 
set  var  v9  to  vsllenin  in  #1 
set  var  vlO  to  vslhp  in  #1 
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set  var  vll  to  vsluse  in  #1 
set  var  vl2  to  vsltype  in  #1 
set  var  vl3  to  vslprop  in  #1 
set  var  vl4  to  vslhull  in  #1 
set  var  vl5  to  vsleng  in  #1 
set  var  vl6  to  vslfuel  in  #1 
set  var  vl7  to  vslconst  in  #1 
set  var  vl8  to  cmedecal  in  #1 
set  var  vl9  to  cmeyear  in  #1 
set  var  v20  to  vsloffno  in  #1 
set  var  v21  to  homeport  in  #1 
set  var  v22  to  vslcall  in  #1 
set  var  v23  to  vslvalue  in  #1 
set  var  v24  to  vslsuper  in  #1 
set  var  v25  to  vslmasts  in  #1 
set  var  v26  to  sailno  in  #1 
set  var  v27  to  hlcolor  in  #1 
set  var  v2a  to  trcolor  in  #1 
set  var  v29  to  slcolor  in  #1 
set  var  v30  to  cbcolor  in  #1 
set  var  v31  to  dkcolor  in  #1 
set  var  v32  to  vslmarks  in  #1 
else 

^(vessel  does  not  exist  in  database) 
set  var  wslmake  to  unk 
set  var  wslmod  to  unk 
set  var  wslyear  text 
set  var  wslyear  to  1901 
set  var  wslnp  text 
set  var  wslhp  to  0 
set  var  wsluse  text 
set  var  wsluse  to  0 
set  var  wsltype  text 
set  var  wsltype  to  9 
set  var  wslprop  text 
set  var  wslprop  to  9 
set  var  wslhull  text 
set  var  wslhull  to  8 
set  var  wsleng  text 
set  var  wsleng  to  0 
set  var  wslfuel  text 
set  var  wslfuel  to  0 
set  var  vconstr  text 
set  var  vconstr  to  0 
set  var  wslton  to  0 
set  var  wslft  to  0 
set  var  wslin  to  0 
set  var  vdecal  to  N 
endif 
break 
endwhile 
newpage 

write  "Press  [ESC]  to  quit  or  [PGDN]  to  move  down  a  page"  at  1  1 
draw  cg4100al  with  all  at  3 
draw  cg4100a2  with  all  at  10 
edit  var  return  esc  pgdn 
endif 
endif 
endif 

if  pg  eq  2  then 
*( enter  owner  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  2 
set  var  vowlname  to  unk 
set  var  vowfname  to  unk 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  cg4100a3  with  all  at  4 
edit  var  return  esc  pgdn 
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endlf 

if  #return  ne  esc  then 
If  review  eg  N  and  backup  eq  N  then 
while  vowXname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  and  + 

ownfname  >  .vowfname 

newpage 

while  e2  eg  0  then 

*(owner  last/first  name  exist  in  database) 

set  var  vowmi  to  ownmi  in  #2 

set  var  vowdob  to  owndob  in  #2 

set  var  vowaddr  to  ownaddr  in  #2 

set  var  vowcity  to  owncity  in  #2 

set  var  vowst  to  ownstate  in  #2 

set  var  vowzip  to  ownzip  in  #2 

set  var  vowtelno  to  owntelno  in  #2 

newpage 

draw  cg4100a3  with  all  at  3 
draw  cg4100a4  with  all  at  3 
write  '’Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 
set  var  ow5  to  owncity  in  #2 
set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  owS  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endif 
next  #2  e2 
endwhile 
if  e2  ne  0  then 
nevroage 

write  "This  owner  does  not  exist  in  the  database"  at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 

clear  vowmi 

clear  vowaddr 

clear  vowcity 

set  var  vowst  to  CA 

clear  vowzip 

clear  vowtelno 

set  var  vowdob  to  01/01/1901 
clear  vostatus 

compute  vmaxown  as  max  ownid  from  owners 
if  vmaxown  fails  then 
set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
endif 
newpage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  cg4100a3  with  all  at  3 
draw  cg4100a4  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
endif 
endif 

if  pg  eq  3  then 
*(enter  operator  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  3 


if  vostatus  eg  1  then 
set  var  vopiname  to  .vowlname 
set  var  vopfname  to  .vowfname 
set  var  #return  to  pgdn 
else 

write  "Press  [PGDN]  after  entering  initial  information  to  + 
check  if"  at  1  5 

write  "operator  exists  in  database.  Press  [ESC]  to  quit"  + 
at  2  10 

set  var  vopiname  to  unk 
set  var  vopfname  to  unk 
draw  cg4100a5  with  all  at  4 
edit  var  return  esc  pgdn 
endif 
endif 

if  treturn  ne  esc  then 

if  review  eg  N  and  backup  eq  N  then 
while  vopiname  exists  and  vopfname  exists  then 

set  pointer  #3  e3  for  operator  where  oplname  =  .vopiname  and  + 

opfname  =  .vopfname 

ne^age 

while  e3  eq  0  then 

*(operator  last/first  name  exist  in  database) 

set  var  vopmi  to  opmi  in  #3 

set  var  vopdob  to  opdob  in  #3 

set  var  vopaddr  to  opaddr  in  #3 

set  var  vopcity  to  opcity  in  #3 

set  var  vopst  to  opstate  in  #3 

set  var  vopzip  to  opzip  in  #3 

set  var  voptelno  to  optelno  in  #3 

set  var  vopcrse  to  opcourse  in  #3 
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draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  3 
write  "Correct  operator?  (N)"  at  21  20 
fillin  opfound  using  "("  at  21  38 
if  opfound  exists  and  opfound  eq  Y  then 
set  var  opl  to  .vopiname 
set  var  op2  to  .vopfname 
set  var  op3  to  opmi  in  #3 
set  var  op4  to  opaddr  in  #3 
set  var  op5  to  opcity  in  #3 
set  var  op6  to  opstate  in  #3 
set  var  op7  to  opzip  in  #3 
set  var  op8  to  optelno  in  #3 
set  var  op9  to  opdob  in  #3 
set  var  oplO  to  opcourse  in  #3 
set  var  opll  to  opid  in  #3 
set  var  vopid  to  opid  in  #3 
break 
endif 
next  #3  e3 
endwhile 
if  e3  ne  0  then 
newpage 

write  "This  operator  does  not  exist  in  the  database"  at  5  5 
fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
if  vostatus  eq  1  then 
set  var  vopmi  to  .vowrai 
set  var  vopaddr  to  .vowaddr 
set  var  vopcity  to  .vowcity 
set  var  vopst  to  .vowst 
set  var  vopzip  to  text 
set  var  vopzip  to  .vowzip 
set  var  voptelno  to  text 
set  var  voptelno  to  .vowtelno 
set  var  vopdob  to  .vowdob 
else 

clear  vopmi 
clear  vopaddr 


clear  vopcity 
set  var  vopst  to  CA 
clear  vopzip 
clear  voptelno 

set  var  vopdob  to  01/01/1901 
enHf 

clear  vopcrse 

compute  'vmiaxop  as  max  opid  from  operator 
if  vmaxop  fails  then 
set  var  vmaxop  to  0 
endif 

set  var  vopid  to  .vmaxop  +  1 
endif 
break 
endwhile 
endif 
newpage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  uo,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  8 
if  vostatus  eq  1  then 

edit  var  vopcrse  return  esc  pgup  pgdn 
else 

edit  var  return  esc  pgup  pgdn 
endif 
endif 
endif 

if  pg  eq  4  then 

*  (enter  boarding  location  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  4 
set  var  vobsbody  to  text 
set  var  vobsbody  to  "Monterey  Bay" 
set  var  vobcount  to  Monterey 
set  var  vobscity  to  Monterey 
set  var  vobstate  to  CA 
set  var  vobslat  to  00.000 
set  var  vobslong  to  000.000 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  down  + 
a  page"  at  1  1 

draw  cg4100a7  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
endif 

if  pg  eq  5  then 

*(enter  boarding  violation/unsafe  condition  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  5 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  ^a^e"  + 

draw  cg4100a8  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
endif 

if  pg  eq  6  then 

* (enter  boarding  officer  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  6 
set  var  vbounit  text 
set  var  vbounit  to  "CG  Group  Monterey" 
set  var  vbodist  text 
set  var  vbodist  to  11 
set  var  vboopfac  text 
set  var  vboopfac  to  36268 
set  var  vbosrise  to  06:00:00 
set  var  vbosset  to  19:00:00 
set  var  vweapons  to  0 
endif 


write  "Press  [ESCi  to  quit  or  [PGUP]  to  move  up  a  page"  at  1  1 
draw  cg4100a9  with  all  at  3 
edit  var  return  esc  pmp 
set  var  loadmenu  to 
endlf 

If  #return  eq  pgup  then 
set  var  backup  to  Y 
if  pg  gt  1  then 
set  var  pg  to  .pg  -  1 
else 

set  var  pg  to  1 
endif 
endif 

if  #return  eq  pgdn  then 
if  pg  It  6  then 

set  var  pg  to  .pg  +  i 
if  pgcount  It  .pg  then 
set  var  backup  to  N 
endif 
else 

set  var  pg  to  6 
endif 
endif 

if  #return  eq  esc  then 
set  var  pg  to  0 
endif 

endwhile  *(end  of  main  loop) 
newage 

write  "Program  loading  in  progress.  Please  stand  by  . "  at  10  10 

if  loadmenu  eq  "Y"  then 
set  var  choice  to  0 
while  choice  It  1  or  choice  gt  3  then 
newpage 

write  "Data  Load  Options"  at  2  20 

write  " . "  at  3  20 

write  "Enters"  at  5  20 

write  "I'To  load  the  data  into  the  database"  at  6  20 

write  "2-To  ignore  the  data  entered"  at  7  20 

write  "3-To  go  back  and  verify  data  entered"  at  8  20' 

write  "Your  choices  "  at  10  20 

fillin  choice  using  "  "  at  10  33 

newpage 

if  choice  eq  1  then 
*(test  for  required  information) 
set  var  test  to  "F" 

if  vbodate  exists  and  vbotime  exists  and  vbono  exists  and  + 
wslname  exists  and  vobslat  exists  and  vobslong  exists  and  + 
wslhin  exists  then 

if  vviol54  exists  or  vviolSS  exists  or  wiol56  exists  or  + 
vviol57  exists  or  vviol58  exists  or  vviol59  exists  or  vviol60  + 
exists  or  wiolSl  exists  or  vviol62  exists  or  wiol63  exists  then 
set  var  test  to  "T" 
endif 

if  vviol64  exists  or  vviolSS  exists  or  vviolSS  exists  or  + 
vviolS7  exists  or  vviolS8  exists  or  vuns69  exists  or  vuns70  + 
exists  or  vuns71  exists  or  vuns72  exists  or  vuns73  exists  then 
set  var  test  to  "T" 
endif 

if  vuns74  exists  or  vuns75  exists  or  vuns7S  exists  or  vuns77  + 
exists  or  vuns78  exists  or  vuns79  exists  then 
set  var  test  to  "T" 
endif 

if  test  eq  "T"  then 
set  error  messages  off 
if  el  eq  0  then 
^(vessel  exists  in  database) 
write  "changing  values  in  vessel" 
delete  rows  from  #1 
else 

write  "loading  vessel" 

292 


set  var  voffno  text 
set  var  vhome  text 
set  var  vcall  text 
set  var  walue  dollar 
set  var  walue  to  $0 
set  var  vsuper  text 
set  var  vmasts  text 
set  var  vsailno  text 
set  var  vhlcolor  to  unk 
set  var  vtrcolor  to  unk 
set  var  vslcolor  to  unk 
set  var  vcbcolor  to  unk 
set  var  vdkcolor  to  unk 
set  var  vmarks  text 
endif 

load  vessel 

.wslno  .wslname  .wslhin  .wslmake  .wslmod  .wslyear  + 
.wslton  .wslft  .wslin  .wslhp  .wsluse  .wsltype  + 
.wslprop  .wslhull  .wsleng  .wslfuel  .vconstr  .vdecal  + 
.vcmeyear  .voffno  .vhome  .vcall  .walue  .vsuper  .vmasts  + 
.vsailno  .vhlcolor  .vtrcolor  .vslcolor  .vcbcolor  .vdkcolor  + 
.vmarks 
end 

if  el  eq  0  then 

set  pointer  #1  el  for  vessel  whe  vslhin  eq  .v3 
if  el  ne  0  then 
load  vessel 

.vl  .v2  .v3  .v4  .v5  .v6  .v7  .v8  .v9  .vlO  .vll  .vl2  + 

.vl3  .vl4  .vl5  .vl6  .vl7  .vl8  .vl9  .v20'  .v21  .v22  .v23  + 
.v24  .v25  .v26  .v27  .v28  .v29  .v30  .v31  .v32 
end 
endif 
endif 

write  "loading  owvsl" 
load  owvsl 

.wslhin  .vownid 
end 

write  "loading  opvsl" 
load  opvsl 

.wslhin  .vopid 
end 

if  vostatus  eq  1  then 
load  opown 

.vownid  .vopid 
end 
endif 

set  pointer  #1  el  for  boarding  where  bono  =  .vbono 
if  el  eq  0  then 
set  var  difbo  to  "F" 
set  var  bl  to  bodate  in  #1 
set  var  b2  to  botime  in  #1 
set  var  b3  to  obslat  in  #1 
set  var  b4  to  obslong  in  #1 

if  bl  ne  .vbodate  or  b2  ne  .vbotime  or  b3  ne  .vobslat  or  + 
b4  ne  .vobslong  then 
set  var  difbo  to  "T" 
endif 
else 

set  var  difbo  to  "T" 
endif 

if  difbo  eq  T  then 
write  "loading  boarding" 
load  boarding 

.vbodate  .vbotime  .vbono  .wslpob  .vadult  .vchild  + 
.vostatus  .vobsbody  .vobcount  .vobscity  .vobstate  + 
.vobslat  .vobslong  .wiol54  .wiol55  .wiol56  .vviol57  + 
.wiol58  .wiol59  .vviol60  .wiol61  .wiol62  .wiol63  + 
.wiol64  .wiol65  .vviol66  .wiol67  .wiol6S  .vuns69  + 
.vuns70  .vuns71  .vuns72  .vuns73  .vuns74  .vuns75  .vuns76  + 
.vuns77  .vuns78  .vuns79  .vboreml  .vborem2  .vborem3  + 


.vboname  .vborate  .vbounlt  .vbodist  .vboopfac  .vboday  + 
.vbosrlse  .vbosset  .wslhin  .weapons 
end 
endif 

If  e2  eq  0  then 
*(owner  exists  in  database) 
write  "changing  values  in  owner" 
delete  rows  from  #2 
else 

write  "loading  owner" 
endif 

load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  .vowst  .vowzip  + 
•vowtelno  .vowdob  .vownid 
end 

if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  whe  ownid  eq  .owlO 
if  e2  ne  0  then 
load  owners 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  .owlO 
end 
endif 
endif 

if  e3  eq  0  then 
*(operator  exists  in  database) 
write  "changing  values  in  operator" 
delete  rows  from  #3 
else 

write  "loading  operator" 
endif 

load  operator 

.voplname  .vopfname  .vopmi  .vopaddr  .vopcity  .vopst  .vopzip  + 
.voptelno  .vopdob  .vopcrse  .vopid 
end 

if  e3  eq  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 
if  e3  ne  0  then 
load  operator 

.opl  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9  .oplO  + 
.opll 
end 
endif 
endif 


set  error  messages  on 
write  "  " 

*( return  option  in  case  of  entry/edit  errors) 
write  "Return  to  correct  data  entered?  (Y)"  at  20  10 
write  "Note;  correct  only  errors  indicated  by  messages"  + 
at  22  5- 

fillin  er  using  "("  at  20  42 
if  er  fails  or  er  eq  "Y"  then 
set  var  review  to  "Y" 
set  var  pg  to  1 

set  pointer  #1  el  for  vessel  where  vslhin  eq  .wslhin 
set  pointer  #2  e2  for  owners  where  ownid  eq  .vownid 
set  pointer  #3  e3  for  operator  where  opid  eq  .vopid 
break 
else 
neraage 

write  "Removing  duplicate  entries  from  tables"  at  10  10 

write  "Please  stand  by . "  at  15  12 

delete  duplicates  from  vessel 
delete  duplicates  from  owvsl 
delete  duplicates  from  opvsl 
delete  duplicates  from  opown 
delete  duplicates  from  owners 
delete  duplicates  from  operator 
endif 
endif 
else 


m 


wrl^e  "Load  not  performed.  Required  information  missing." 
at  5  20 

write  "Required  Information  Includes  i"  at  10  30 
write  "Boarding  Date,  Boarding  Time,  Boarding  Number"  at  12  35 
write  "Vessel  Name,  Boarding  Latitude,  Boarding  Longitude"  + 
at  13  35 

write  "Vessel  HIN,  A  Violation  or  Unsafe  Condition"  at  14  35 
filiin  go  using  ''Press  [ENTER]  to  return  to  data  entry"  at  16  25 
set  var  pg  to  1 
set  var  review  to  Y 
if  wslhln  falls  then 
set  var  fixhin  to  Y 
endlf 
break 
endlf 
endlf 

if  choice  eq  1  or  choice  eq  2  then 
*(enter  additional  owners) 
newpage 

write  "Enter  additional  owners?  (N)"  at  12  20 
filiin  addl_own  using  "("  at  12  45 
if  addl_own  exists  and  addl_own  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 
set  var  vowlname  to  unk 
set  var  vowfname  to  unk 


Required  information  missing." 


at  12  20 


ne^age 

write  "Press  [PGDN]  after  entering  initial  information  to  + 
check  if"  at  1  5 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  + 
at  2  10 

draw  cg4100a3  with  all  at  4 
edit  var  return  esc  pgdn 
if  #return  ne  esc  then 

while  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  + 
and  ownfname  =  .vowfname 


nev^age 

while  e2  eg  0  then 

*<owner  last/first  name  exist  in  database) 

set  var  vowmi  to  ownrai  in  #2 

set  var  vowdob  to  owndob  in 

set  var  vowaddr  to  ownaddr  in  #2 

set  var  vowcity  to  owncity  in  #2 

set  var  vowst  to  ownstate  in  #2 

set  var  vowzip  to  ownzip  in  #2 

set  var  vowtelno  to  owntelno  in  #2 


newpage 

draw  cg4100a3  with  all  at  3 
draw  cg4100a4  with  all  at  8 
write  "Correct  owner?  (N)"  at  21  20 
filiin  owfound  using  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 

set  var  ow2  to  .vowfname 

set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 

set  var  ow5  to  owncity  in  #2 

set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  ow8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endlf 
next  #2  e2 
endwhile 
if  e2  ne  0  then 


newpage 

write  "This  owner  does  not  exist  in  the  database"  at  5  5 
flllln  go  using  "Press  [ENTER]  to  continue"  at  9  5 
clear  vowmi 
clear  vowaddr 
clear  vowcity 
set  var  vowst  to  CA 
clear  vowzip 
clear  vowtelno 
set  var  vowdob  to  01/01/1901 
compute  vmaxown  as  max  ownid  from  owners 
if  vmaxown  fails  then 
set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
label  redoown 


newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  cg4100a3  with  all  at  3 
draw  sarformS  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
if  ttreturn  eq  pgdn  then 
newpage 

set  error  messages  off 
if  e2  eq  0  then 
*( owner  exists  in  database) 
write  "changing  values  in  owner" 
delete  rows  from  #2 
else 

write  "loading  owner" 
endif 

load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  .vowst  + 
.vowzip  .vowtelno  .vowdob  .vownid 
end 

if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  where  ownid  eq  .owlO 
if  e2  ne  0  then 
load  owners 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  .owlO 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 

write  "Note:  correct  only  errors  indicated  by  messages"  + 

at  20  5 

fillin  fixown  using  at  15  36 
if  fixown  exists  and  fixown  eq  Y  then 

set  pointer  #2  e2  for  owners  where  ownid  eq  .vownid 
goto  redoown 
endif 

set  pointer  #2  e2  for  owvsl  where  vhinown  eq  .wslhin  + 

and  idowner  eq  .vownid 

*(check  if  record  already  exists) 

newpage 

if  e2  ne  0  then 
load  owvsl 

.wslhin  .vownid 
end 
endif 
endif 
endif 

write  "More  owners  to  enter?  (N)"  at  20  20 
fillin  mrownrs  using  "("  at  20  42 
if  mrownrs  fails  or  mrownrs  eq  N  then 
set  var  more  to  N 


endif 

endwhlle 

endif 

’^(enter  additional  operators) 
newpage 

write  "Enter  additional  operators?  (N)"  at  12  20 
fillin  addl_opr  using  "("  at  12  48 
if  addl  opr  exists  and  addl_opr  eg  Y  then 
set  var  more  to  "Y" 
while  more  eg  Y  then 
set  var  voplname  to  unk 
set  var  vopfname  to  unk 
newpage 

write  '  4.  ress  [PGDN]  after  entering  initial  information  to  + 
chftclc  if**  1  5 

write  "operator  exists  in  database.  Press  [ESC]  to  guit"  + 
at  2  10 

draw  cg4100a5  with  all  at  4 
edit  var  return  esc  pgdn 
if  #return  ne  esc  then 

while  voplname  exists  and  vopfname  exists  then 

set  pointer  #3  e3  for  operator  where  oplname  =  .voplname 

and  opfname  =  .vopfname 

ne^age 

while  e3  eg  0  then 

^(operator  last/first  name  exist  in  database) 

set  var  vopmi  to  opmi  in  #3 

set  var  vopdob  to  opdob  in  #3 

set  var  vopaddr  to  opaddr  in  #3 

set  var  vopcity  to  opcity  in  #3  • 

set  var  vopst  to  opstate  in  #3 

set  var  vopzip  to  opzip  in  #3 

set  var  voptelno  to  optelno  in  #3 

set  var  vopcrse  to  opcourse  in  #3 

newpage 

.  draw  cg4100a&  with  all  at  3 

draw  cg4100a6  with  all  at  8 
■  write  “^Correct  operator?  (N)"  at  21  20 

fillin  opfound  using  "("  at  21  38 
if  opfound  exists  and  opfound  eg  Y  then 
sec  var  opl  to  .voplname 
set  var  op2  to  .vopfname 
set  var  op3  to  opmi  in  #3 
set  var  op4  to  opaddr  in  #3 
set  var  op5  to  opcity  in  #3 
set  var  op6  to  opstate  in  #3 
.  set  var  op7  to  opzip  in  #3 
set  var  op8  to  optelno  in  #3 
set  var  op9  to  opdob  in  #3 
set  var  oplO  to  opcourse  in  #3 
set  var  opil  to  opid  in  #3 
set  var  vopid  to  opid  in  #3 
break 
endif 

next  #3  e3 
endwhlle 
if  e3  ne  0  then 
ne^^age 

write  "This  operator  does  not  exist  in  the  database"  + 
at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 

clear  vopmi 

clear  vopaddr 

clear  vopcity 

set  var  vopst  to  CA 

clear  vopzip 

clear  voptelno 

clear  vopcrse 

set  var  vopdob  to  01/01/1901 

compute  vmaxoper  as  max  opid  from  operator 


if  vmaxoper  fails  then 
set  var  vmaxoper  to  0 
endif 

set  var  vopid  to  .vmaxoper  +  1 
endif 
break 
endwhile 
label  redooper 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
if  #return  eq  pgdn  then 
newpage 

set  error  messages  off 
if  e3  eq  0  then 

*  (operator  exists  in  database) 
write  "changing  values  in  operator" 
delete  rows  from  #3 
else 

write  "loading  operator" 
endif 

load  operator 

.voplname  .vopfaame  .vopmi  .vopaddr  .vopcity  .vopst  + 
.vopzip  .voptelno  .vopdob  .vopcrse  .vopid 
end 

if  e3  eq  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 
if  e3  ne  0  then 
load  operator 

.opl  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9 
.oplO  .opll 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 

write  "Note:  correct  only  errors  indicated  by  messages" 

at  20  5 

fillin  fixopr  using  at  15  36 
if  fixopr  exists  and  fixopr  eq  Y  then 
set  pointer  #3  e3  for  operator  where  opid  eq  .vopid 
gpto  redooper 

set  pointer  #3  e3  for  opvsl  where  vhinoper  eq  .wslhin  + 

and  idoper  eq  .vopid 

*(check  if  record  already  exists) 

ne^^age 

if  e3  ne  C  then 
load  opvsl 

.wslhin  .vopid 
end 
endif 
endif 
endif 

write  "More  operators  to  enter?  (N)"  at  20  20 
fillin  mropers  using  "("  at  20  45 
if  mropers  fails  or  mropers  eq  N  then 
set  var  more  to  N 
endif 
endwhile 
endif 
newpage 

write  "Enter  another  boarding?  (Y)"  at  12  20 
fillin  cont  using  "("  at  12  44 
if  cont  fails  or  cont  eq  Y  then 
*(reset  variables  to  start  condition) 
clear  all  variables 
set  var  pg  to  1 


set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
break 
else 

set  null  -0- 
set  var  pg  to  0 
endif 
endif 

if  choice  eq  3  then 
set  var  review  to  "Y" 
set  var  pg  to  1 
endif 
endwhile 
else 
newage 

write  "Enter  another  boarding?  (Y)"  at  12  20 
fillin  cont  using  "("  at  12  44 
if  cont  fails  or  cont  eq  Y  then 

*(reset  variables  to  start  condition) 
clear  all  variables 
set  var  pg  to  1 
set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
else 

set  error  messages  off 
set  null  -0- 
set  var  pg  to  0 
endif 
endif 

if  pg  eq  1  then 
goto  begin 
endif 
r  ;turn 
*(  and  ) 
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Add  Owner 

H  R  Lane  :  J  D  Allen 
July  198 

This  proc:  .  allows  the  user  to  input 

additiona-  owner  information. 

vessel,  owners,  owvsl 

none 

none 

ownrmodl ,  ownrmod2 


set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  . "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  wslhin  text 
set  var  more  to  Y 
while  more  eq  Y  then  *(main  loop) 
set  var  done  to  Y 
newpage 

write  "Enter  HIM  of  vessel  owned:  "  at  10  10 
fillin  wslhin  using  "  "  at  10  36 
if  wslhin  exists  then 

set  pointer  #1  el  for  vessel  where  vslhin  eq  .wslhin 


at  10  10 
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if  el  eq  0  then 
newpage 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  ownrmodl  with  all  at  4 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 

if  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  ov/ners  where  ownlname  =  .vowlname  and  + 
ownfhame  =  .vowfname 
while  e2  eg  0  then 

*(owner  last/first  name  exist  in  database) 

set  var  vowmi  to  ownmi  in  #2 

set  var  vowdob  to  owndob  in  #2 

set  var  vowadcr  to  ownaddr  in  #2 

set  var  vowcity  to  owncity  in  #2 

set  var  vowst  to  ownstate  in  #2 

set  var  vowzip  to  ownzip  in  #2 

set  var  vowtelno  to  ownteino  in  #2 

newpage 

draw  ownrmodl  with  all  at  3  . 

draw  ownrmod2  with  all  at  8 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
ne^roage 

write  "This  owner  already  exists  in  the  database"  at  10  10 
set  var  vownid  to  ownid  in  #2 

set  pointer  #3  e3  for  owvsl  where  vhinown  eq  .wslhin  + 
and  idowner  eq  .vownid 
if  e3  ne  0  then 
load  owvsl 

.wslhin  .vownid 
end 

write  "The  new  owner-vessel  record  has  been  created"  + 
at  15  10 
endif 
break 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
clear  vowmi 
clear  vowaddr 
clear  vowcity 
set  var  vowst  to  CA 
clear  vowzip 
clear  vowtelno 

set  var  vowdob  to  01/01/1901 
clear  vostatus 

compute  vmaxown  as  max  ownid  from  owners 
if  vmaxown  fails  then 
set  var  vmaxown  to  0 
endif 

set  var- vownid  to  .vmaxown  +  1 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  ownrmodl  with  all  at  3 
draw  ownrmod2  with  all  at  8 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 
set  var  out  to  N 
set  var  loadok  to  N 
while  loadok  eq  N  then 
newpage 
load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  .vowst  + 
.vowzip  .vowtelno  .vowdob  .vownid 
end 


300 


write  "Return  to  correct  errors?  (N)"  at  10  10 
write  "Note:  correct  only  errors  indicated  by  + 
messages"  at  15  5 

fillin  er  using  "("  at  10  36 
if  er  fails  or  er  eq  N  then 
set  var  loadok  to  x 
set  var  done  to  Y 
else 

*(edit  record  again) 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  + 
at  1  1 

draw  ownrmodl  with  all  at  3 
draw  ownrmod2  with  all  at  8 
edit  var  return  esc  pgdn 
if  ttreturn  eq  esc  then 
set  var  out  to  Y 
break 
endif 
endif 
endwhile 

’.f  out  eq  N  then 
load  owvsl 

.wslhin  .vownid 
end 
endif 
endif 
endif 
endif 
endif 
else 


newpage 

write  "This  HIN  does  not  exist  in  the  database"  at  10  10 
write  "Do  you  wish  to  reenter  the  HIN?  (Y)"  at  15  10 
fillin  reenter  using  "("  at  15  42 
if  reenter  fails  or  reenter  eq  Y  then 
set  var  done  to  N 
endif 
endif 
endif 

if  done  eq  Y  then 
newpage 

write  "More  owners  to  be  entered?  (N)"  at  12  20 
fillin  mrownrs  using  at  12  47 
if  mrownrs  fails  or  mrownrs  eq  N  then 
set  var  more  to  N 
else 

clear  all  variables 
set  var  more  to  Y 
endif 
endif 

endwhile  *(end  main  loop) 
set  error  messages  on 
set  null  -0- 
return 
*(  end  ) 
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APPENDIX  H 
MODIFY  SOURCE  CODE 


$COMMAND 

MODMAIN 


US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 


MODIFY  MAIN  MENU  and  APPLICATIONS 


Author ! 


Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


set  messages  off 
set  escape  off 
newpage 

clear  all  variables 
set  var  picks  integer 
newpage 

choose  picks  from  mod_menu  in  modify. apx 
if  picks  eq  0  then 
quit  to  restmod.cmd 
endif  . 

if  picks  eq  1  then 

run  mod_sar  in  modify. apx 
quit  to  restmod.cmd 
endif 

if  picks  eg  2  then 

run  modjbrd  in  modify. apx 
quit  to  restmod.cmd 
endif 

if  picks  eq  S  then 

run  mod_vsl  in  modify. apx 
quit  to  restmod.cmd 
endif 

if  picks  eq  4  then 

Lun  mod_owop  in  modify. apx 
quit  to  resunod.cmd 
endif 

if  picks  eq  5  then 

run  mod_sut  in  modify. apx 
quit  to  restmod.cmd 
endif 

if  picks  eq  6  then 

run  am_vint  in  modify. apx 
quit  to  restmod.cmd 
endif 

if  picks  eq  7  then 

run  am_pint  in  modify. apx 
quit  to  restmod.cmd 
endif 

if  picks  eq  8  then 

run  mod_vhin  in  modify. apx 
quit  to  restmod.cmd 
endif 

if  picks  eq  9  then 


quit  to  restmaln.cmd 
endlf 

quit  to  restmod.cmd 

return 

$menu 

mod_menu 

column  SARELTIS  —  MODIFY  MENU 
MODIFY  SAR  INFORMATION 
MODIFY  BOARDING  INFORMATION 
MODIFY  VESSEL  INFORMATION 
MODIFY  OWNER/ OPERATOR  INFORMATION 
MODIFY  SAR  UNIT  INFORMATION 
MODIFY  VESSEL  INTELLIGENCE 
MODIFY  PERSONNEL  INTELLIGENCE 
MODIFY  VESSEL  HIN 
RETURN  TO  MAIN  MENU 
*(  end  ) 


SCOMMAND 
MOD  SAR 


Program: 

Author: 

Date  Written: 
Description; 

Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Modify  Sar 

H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 

sar  information  in  the  database. 

sar,  vessel 

none 

none 

sarmod 


set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by . "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  more  to  Y 
set  var  vfoldno  text 
while  more  eq  Y  then 
set  var  change  to  N 
set  var  reenter  to  N 
newpage 

write  "Enter  folder  number  of  sar  case  requiring  modification;  "  + 
at  10  5  ■ 


fillin  vfoldno  using  "  "  at  10  60 
while  vfoldno  exists  then 


newpage 
write  "Searching  SAR  Table 


set  pointer  ^^1  el 
if  el  eq  0  then 

*(sar  case  exists  in  database) 
set  var  vucn  to  ucn  in  ill 
set  var  vmucn  to  mucn  in  ill 
set  var  vsardate  to  sardate  in  #1 
set  var  vsarday  to  sarday  in  #1 
set  var  vsartime  to  sartime  in  #1 
set  var  vsunrise  to  ssunrise  in  #1 
set  var  vsunset  to  ssunset  in  #1 
set  var  vsarnod  to  sarnod  in  #1 
set  var  vsarpob  to  sarpob  in  #1 
set  var  vsarhin  to  sarvhin  in  #1 
set  var  vsarlat  to  sarlat  in  #1 


Please  stand  by 


or  sar  where  folderno  eq  .vfoldno 


at  10  10 
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set  var  vsarlong  to  sarlong  In  #1 
set  var  vdlstoff  to  offshore  in  #1 
set  var  vinuned  to  immedsar  in  #1 
set  var  vwinddir  to  winddir  in  #1 
set  var  vwindspd  to  windspd  in  #1 
set  var  wisdist  to  visdist  in  #1 
set  var  vclouds  to  clouds  in  #1 
set  var  vceiling  to  ceiling  in  #1 
set  var  vseas  to  seas  in  #1 
set  var  vswells  to  swells  in  #1 
set  var  oldfold  to  .vfoldno 
set  var  change  to  Y 
set  var  si  to  folderno  in  #1 
set  var  s2  to  ucn  in  #1 
set  var  s3  to  mucn  in  #1 
set  var  s4  to-sardate  in  #1 
set  var  s5  to  sarday  in  #1 
set  var  s6  to  sartime  in  #1 
set  var  s7  to  ssunrise  in  #1 
set  var  s8  to  ssunset  in  #1 
set  var  s9  to  sarnod  in  #1 
.  set  var  slO  to  sarpob  in  #1 
set  var  sll  to  sarvhin  in  #1 
set  var  sl2  to  sarlat  in  #1 
set  var  sl3  to  sarlong  in  #1 
set  var  sl4  to  offshore  in  #1 
Sut  var  slS  to  immedsar  in  #1 
set  var  sl6  to  winddir  in  #1 
set  var  sl7  to  windspd  in  #1 
set  var  slS  to  visdist  in  #1 
set  var  sl9  to  clouds  in  #1 
set  var  s20  to  ceiling  in  #1 
set  var  s21  to  seas  in  #1 
set  var  s22  to  swells  in  #1 
else 
nevroage 

write  "This  folder  number  does  not  exist  in  the  database"  at  10  10 
write  "Do  you  wish  to  reenter  the  folder  number?  (Y)"  at  12  10 
fillin  correct  using  "("  at  12  52 
if  correct  fails  or  correct  eq  Y  then 
set  var  reenter  to  Y 
endif 
endif 
break 
endwhile 

while  change  eq  Y  then 

set  pointer  #2  e2  for  vessel  where  vslhin  eq  .vsarhin 

set  var  wslname  to  vsln;""?  in  #2 

ne'rfoage 

write  "press  [PGDN]  to  load  changes  or  [ESC]  to  quit"  at  1  1 
draw  sarmod  with  all  at  -3 

edit  var  vfoldno  vsardate  vucn  vmucn  vsarday  vsartime  vsarpob  + 
vsarnod  vimmed  vsarlat  vsarlong  vdistoff  wisdist  vsunrise  vsunset  + 
vceiling  vclouds  vwinddir  vwindspd  vseas  vswells ,  return  esc  pgdn 
if  #return  eq  pgdn  then 
nevroage 

write  "Changing  values  in  sar" 
if  oldfold  ne  .vfoldno  then 

set  pointer  #2  a2  for  sarunits  where  foldno  eq  .oldfold 
while  e2  eq  0  then 

change  foldno  to  .vfoldno  in  #2 
next  #2  e2 
endwhile 
endif 

delete  rows  from  #1 
load  sar 

.vfoldno  .vucn  .vmucn  .vsardate  .vsarday  .vsartime  .vsunrise  + 
.vsunset  .vsarnod  .vsarpob  .vsarhin  .vsarlat  .vsarlong  + 
.vdistoff  .vimmed  .vwinddir  .vwindspd  .wisdist  .vclouds  + 
.vceiling  .vseas  .vswells 


end 

set  pointer  #2  e2  for  sar  where  folderno  eq  .si  or  folderno  eq  + 
.vfoldno 
if  e2  ne  0  then 
load  sar 

.si  .s2  .s3  .s4  .s5  .s6  .s7  .s8  .s9  .slO  .sll  .sl2  .sl3  .sl4  + 
.sl5  .sl6  .sl7  .Sis  .sl9  .s20  .s21  .s22 
end 

set  pointer  #3  e3  for  sarunlts  where  foldno  eq  .vfoldno 
while  e3  eq  0 

change  foldno  to  .si  In  #3 
next  #3  e3 
endwhlle 
endlf 

write  "Return  to  correct  data  entered?  (N)"  at  15  10 
write  "Note:  correct  only  errors  indicated  by  messages"  at  20  5 
fillin  er  using  "("  at  15  42 
if  er  fails  or  er  eq  N  then 
set  var  change  to  N 
endlf 
else 

set  var  change  to  N 
endlf 
endwhlle 

if  reenter  eq  N  then 
newpage 

write  "More  sar  cases  to  be  changed?  (N)"  at  12  20 
fillin  mrsar  using  "("  at  12  50 
if  mrsar  fails  or  mrsar  eq  N  then 
set  var  more  to  N 


endi  r 
endlf 

endwhlle  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
*(  end  ) 


$ COMMAND 
MOD  BRD 


Program: 
Author : 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Modify  Boarding 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 

boarding  information  in  the  database. 

boarding,  vessel 

none 

none 

bomodl,  bomod2,  bomod3 


*********  A*:^****:*:*******************^**:*:**^:************************  A***) 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  . "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  pg  to  1 
set  var  review  to  N 

^(controls  relation  search-  if  reviewing,  don't  search) 
while  pg  gt  0  then  *(main  loop) 
if  review  eq  N  then 
newpage 
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set  var  fix  to  N 
set  var  chk-mr  to  N 
set  var  vbono  text 

write  "Enter  report  number  of  boarding  requiring  modifications  "  -(■ 
at  10  5 

flllin  vbono  using  "  "  at  10  60 
while  vbono  exists  then 
newpage 

write  "Searching  Boarding  Table.  Please  stand  by . "  at  10  10 

set  pointer  #1  el  for  boarding  where  bono  eq  .vbono 
if  ei  eq  0  then 
^(record  exists  in  database) 
set  var  vbodate  to  bodate  in  #1 
set  var  vbotime  to  botime  in  #1 
set  var  wslpob  to  vslpob  in  #1 
set  var  vadult  to  adultpfd  in  #1 
set  var  vchild  to  childpfd  in  #1 
set  var  vostatus  to  owstatus  in  #1 
set  var  vobsbody  to  obsbody  in  #1 
set  var  vobcount  to  obscount  in  #1 
set  var  vobscity  to  obscity  in  #1 
set  var  vobstate  to  obsstace  in  #1 
set  var  vobslat  to  obslat  in  #1 
set  var  vobslong  to  obslong  in  #1 
set  var  wiol54  to  viol54  in  #1 

set  var  wiol55  to  viol55  in  #1 

set  var  wiol56  to  viol56  in  #1 

set  var  wiol57  to  viol57  in  #1 

set  var  wiolSS  to  violSS  in  #1 

set  var  wiol59  to  viol59  in  #1 

set  var  vviol60  to  viol60  in  #1 

set  var  wiol61  to  viol61  in  #1 

set  var  wiol62  to  viol62  in  #1 

set  var  wiol63  to  viol63  in  #1 

set  var  vviol64  to  viol64  in  #1 

set  var  vviol65  to  viol65  in  #1 

set  var  vviol66  to  viol66  in  #1 

set  var  vviol67  to  viol67  in  #1 

set  var  wiol68  to  viol68  in  #1 

set  var  vuns69  to  uns69  in  #1 

set  var  vuns70  to  uns70  in  #1 

set  var  vuns71  to  uns7l  in  #1 

set  var  vuns72  to  uns72  in  #1 

set  var  vuns73  to  uns73  in  #1 

set  var  vuns74  to  uns74  in  #1 

set  var  vuns75  to  uns75  in  #1 

set  var  vuns76  to  uns76  in  #1 

set  var  vuns77  to  unS77  in  #1 

sat  var  vuns78  to  uns78  in  #1 

set  var  vuns79  to  uns79  in  #1 

set  var  vboreml  to  boreml  in  #1 

set  var  vborem2  to  borem2  in  #1 

set  var  vborem3  to  borem3  in  #1 

set  var  vboname  to  boname  in  #1 

set  var  vborate  to  borate  in  #1 

set  var  vbounit  to  bounit  in  #1 

set  var  vbodist  to  bodist  in  #1 

set  var  vboopfac  to  boopfac  in  #1 
set  var  vboday  to  boday  in  #1 
set  var  vbosrise  to  bsunrise  in  #1 
set  var  vbosset  to  bsunset  in  #1 
set  var  wslhin  to  bovhin  in  #1 
set  var  vweapons  to  weapons  in  #1 
set  var  bl  to  bodate  in  #1 
set  var  b2  to  botime  in  #1 
set  var  b3  to  bono  in  #1 
set  var  b4  to  vslpob  in  #1 
set  var  b5  to  adultpfd  in  #1 
set  var  b6  to  childpfd  in  #1 
set  var  b7  to  owstatus  in  #1 
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set  var  b8  to  obsbody  In  #1 
set  var  b9  to  obscount  in  #1 
set  var  blO  to  obscity  in  #1 
set  var  bll  to  obsstace  in  #1 
set  var  bl2  to  obslat  in  #1  ' 
set  var  bl3  to  obslong  in  #1 
set  var  bl4  to  violS4  in  #1 
set  var  bl5  to  violSS  in  #1 
set  var  bl6  to  viol56  in  #1 
set  var  bl7  to  viol57  in  #1 
set  var  bl8  to  violSS  in  #1 
to  viol59  in  #1 
to  viol60  in  #1 
to  violSl  in  #1 
to  viol62  in  #1 
to  viol63  in  #1 
to  viol64  in  #1 
to  viol65  in  #1 
to  viol66  in  #1 
to  viol67  in  #1 
set  var  b28  to  viol68  in  #1 
set  var  b29  to  uns69  in  #1 

to  uns70  in  #1 

to  uns71  in  #1 

set  var  b32  to  uns72  in  #1 

set  var  b33  to  uns73  in  #1 

set  var  b34  to  uns74  in  #1 

to  uns75  in  #1 

to  uns76  in  #1 

to  uns77  in  #1 

set  var  b3a  to  uns78  in  #1 

set  var  b39  to  uns79  in  #1 

to  boreml  in  #1 
to  borem2  in  #1 
to  borem3  in  #1 
to  boname  in  #1 
set  var  b44  to  borate  in  #1 
sat  var  b45  to  bounit  in  #1 
to  bodist  in  #1 
to  boopfac  in  #1 


set  var  bl9 
set  var  b20 
set  var  b21 
set  var  b22 
set  var  b23 
set  var  b24 
set  var  b25 
set  var  b26 
set  var  b27 


set  var  b30 
set  var  b31 


set  var  b35 
set  var  b36 
set  var  b37 


set  var  b40 
set  var  b41 
set  var  b42 
set  var  b43 


set  var  b46 
set  var  b47 


set  var  b48  to  boday  in  #1 
set  var  b49  to  bsunrise  in  #1 
set  var  bSO  to  bsunset  in  #1 
set  var  b51  to  bovhin  in  #1 
set  var  b52  to  weapons  in  #1 

set  pointer  #2  e2  for  vessel  where  vslhin  eq  .wslhin 
*(get  vessel  name) 
set  var  wslname  to  vslname  in  #2 
set  var  review  to  Y 
break 
else 
newpage 

write  "This  boarding  report  number  does  not  exist  in  the  + 
database"  at  10  10 

write  "Do  you  wish  to  reenter  the  report  number?  (Y)"  at  12  10 
fillin  correct  using  "("  at  12  52 
if  correct  exists  and  correct  eq  N  then 
set  var  chk-mr  to  Y 
set  var  fix  to  Y 
break 
else 

set  var  fix  to  Y 
break 
endif 
endif 
endwhile 
endif 

if  fix  eq  N  then 
if  pg  eq  1  then 
newpage 
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write  "Press  rPGDN]  to  move  down  a  page  or  [ESC]  to  quit"  at  1  1 
draw  bomodl  with  all  at  3 

edit  var  vbono  vbodate  vbotime  vboday  wslpob  vadult  vchild  + 
vostatus  vobsbody  vobcount  vobscity  vobstate  vobslat  vobslong  + 
return  esc  pgdn 
endif 

If  pg  eq  2  then 
newpage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up  or  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  bomod2  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
endif 

if  pg  eq  3  then 
nevroage 

write  "Press  [PGUP]  to  move  up  a  page  or  [ESC]  to  quit"  at  1  1 
draw  bomod3  with  all  at  3 
edit  var  return  esc  pgup 
endif 

if  ttreturn  eq  pgup  then 
if  pg  gt  1  then 
set  var  pg  to-  .pg  -  1 
else 

set  var  pg  to  1 
endif 
endif 

if  ttreturn  eq  ogdn  then 
if  pg  It  3  then 

set  var  pg  to  .pg  +  1 
else 

set  var  pg  to  3 
endif 
endif 

if  #return  eq  esc  then 
set  var  choicu  to  0 

while  choice  it  1  or  choice  gt  3  then  • 
nev^age 

write  "Boarding  Change  Options"  at  2  20 

write  " . "  at  3  20 

write  "1.  Change  values  in  the  database"  at  5  20 
write  "2.  Go  back  and  verify  data  "  at  6  20 
write  "3.  Qui^  "  at  7  20 
write  "Your  choice :  "  at  9  25 
fillin  choice  using  "  "  at  9  37 
if  choice  eq  1  then 
set  error  messages  off 
newpage 

write  "changing  values  in  boarding" 
delete  rows  from  #1 
load  boarding 

.vbodate  .vbotime  .vbono  .wslpob  .vadult  .vchild  + 
.vostatus  .vobsbody  .vobcount  .vobscity  .vobstate  + 

.vobslat  .vobslong  .wiol54  .wiol55  .vviol56  .wiol57  + 
.wiolSS  .wiol59  .wiolSO  .wiol61  .wiol62  .wiol63  + 
.wiol64  .wiol65  .wiol66  .wiol67  .wiol68  .vuns69  + 
.vuns70  .vuns71  ,vuns72  .vuns73  .vuns74  .vuns75  .vuns76 
.  .vuns77  .vuns78  .vuns79  .vboreml  .vboremZ  .vboremS  -h 
.vboname  .vborate  .vbounit  .vbodist  .vboopfac  .vboday  + 
.vbosrise  .vbosset  ..wslhin  .vweapons 
end 

set  pointer  #3  e3  for  boarding  where  bono  eq  .b3 
if  e3  ne  0  then 
load  boarding 

.bl  .b2  .b3  .b4  .b5  .b6  .b7  .b8  .b9  .blO  .bll  .bl2  .bl3  + 
.bl4  .bl5  .bl6  .bl7  .bl8  .bl9  .b20  .b21  .b22  .b23  .b24  + 

.b25  .b26  .b27  .b28  .b29  .b30  .b31  .b32  .b33  .b34  .b35  + 

.b36  .b37  .b38  .b39  .b40  .b41  .b42  .b43  .b44  .b45  .b46  + 

.b47  .b48  .b49  .bSO  .bSl  .b52 

end 
endif 


set  error  messages  on 
newpage 

write  "Return  to  correct  data  entered?  (N)"  at  15  10 
flllln  er  using  "("  at  15  42 
if  er  exists  and  er  eg  Y  then 
set  var  pg  to  1 
else 

set  var  chk-mr  to  Y 
endif 
endif 

if  choice  eg  2  then 
set  var  pg  to  1 
endif 

if  choice  eg  3  then 
newpage 

write  "More  boardings  to  be  changed?  (N)"  at  12  20 
fillin  more  using  at  12  50 
if  more  fails  or  more  eg  N  then 
set  var  pg  to  0 

else 

set  var  pg  to  1 
set  var  review  to  N 
endif 
endif 
endwhile 
endif 
endif 

if  chk-mr  eg  Y  then 
newpage 

write  "More  boardings  to  be  changed?  (N)"  at  12  20 
fillin  more  using  at  12  50 
if  more  fails  or  more  eg  N  then 
set  var  pg  to  0 
else 

clear  all  variables 
set  var  pg  to  1 
set  var  review  to  N 
endif 
endif 

endwhile  *(end  of  main  loop) 

set  error  messages  off 

set  null  -0- 

return 

*(  end  ) 


$ COMMAND 
MOD  VSL 

*^*^***)<c***3<t*******yf****yt5>(yt*i>t********************:*yf*j>t  **:*******:*[********* 


Program ; 
Author; 

Date  Written; 
Description; 

Tables  Used; 
Temp  Tables; 
Reports  Used; 
Forms  Used; 


Modify  Vessel 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 

vessel  information  in  the  database. 

vessel 

none 

none 

vslmodl,  vslmod2 


***********yt********3<t*:fc*********5l!*********************************)l(****  J 

set  error  messages  on 
set  messages  off 
set  escape  off 
ne^^age 

write  "Program  loading  in  progress.  Please  stand  by 
clear  all  variables 


"  at  10  10 


set  null  ? 
set  var  pg  to  1 
set  var  more  to  Y 

while  more  eg  Y  then  *(main  loop) 
set  var  chk_hin  to  Y 
set  var  chk^name  to  N 
while  chk_hin  eg  Y  then 
newpage 

set  var  wslhin  text 

write  "Enter  HIN  of  vessel  reguiring  modification:  "  at  10  10 
write  "(enter  'xxx'  to  go  directly  to  vessel  name  search)"  at  12  5 
fillin  wslhin  using  "  "  at  10  53 
while  wslhin  exists  then 
if  wslhin  eg  xxx  then 
set  var  chk_hin  to  N 
set  var  chk_name  to  Y 
break 
endif 
newpage 

write  "Searching  Vessel  Table.  Please  stand  by  . "  at  10  10 

set  pointer  #1  el  for  vessel  where  vslhin  =  .wslhin 
newpage 

if  el  eg  0  then 
’^(vessel  exists  in  database) 
set  var  wslno  to  vslno  in  #1 
set  var  wslname  to  vslname  in  #1 
set  var  wslmake  to  vslmake  in  #1 
set  var  wslmod  to  vslmodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  wslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
set  var  wslin  to  vsllenin  in  #1 
set  var  wslhp  to  vslhp  in  #1 
set  var  wsluse  to  vsluse  in  #1 
set  var  wsltype  to  vslt^TDe  in  #1 
set  var  wslprop  to  vslprop  in  #1 
set  var  wslhull  to  vslhull  in  #1 
set  var  wsleng  to  vsleng  in  #1 
set  var  wslfuel  to  vslfuel  in  #1 
set  var  vconstr  to  vslconst  in  #1 
set  var  vdecal  to  cmedecal  in  #1 
set  var  vcmeyear  to  cmeyear  in  #1 
set  var  voffno  to  vsloffno  in  #1 
set  var  vhome  to  homeport  in  #1 
set  var  vcall  to  vslcall  in  #1 
set  var  walue  to  vslvalue  in  #1 
set  var  vsuper  to  vslsuper  in  #1 
set  var  vmasts  to  vslmasts  in  #1 
set  var  vsailno  to  sailno  in  #1 
set  var  vhlcolor  to  hlcolor  in  #1 
set  var  vtrcolor  to  trcolor  in  #1 
set  var  vslcolor  to  slcolor  in  #1 
set  var  vcbcolor  to  cbcolor  in  #1 
set  var  vdkcolor  to  dkcolor  in  #1 
set  var  vmarks  to  vslmarks  in  #1 
set  var  vl  to  vslno  in  #1 
set  var  v2  to  vslname  in  #1 
set  var  v3  to  vslhin  in  #1 
set  var  v4  to  vslmake  in  #1 
set  var  v5  to  vslmodel  in  #1 
set  var  v6  to  vslyear  in  #1 
set  var  v7  to  vsltons  in  #1 
set  var  v8  to  vsllenft  in  #1 
set  var  v9  to  vsllenin  in  #1 
set  var  vlO  to  vslhp  in  #1 
set  var  vll  to  vsluse  in  #1 
set  var  vl2  to  vsltype  in  #1 
set  var  vl3  to  vslprop  in  #1 
set  var  vl4  to  vslhull  in  #1 
set  var  vl5  to  vsleng  in  #1 
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set  var  vl6  to  vslfuel  in  #1 
set  var  vl7  to  vslconst  in  #1 
set  var  vl8  to  cmedecal  in  #1 
set  var  vl9  to  cmeyear  in  #1 
set  var  v20  to  vsloffno  in  #1 
set  var  v21  to  homeport  in  #1 
set  var  v22  to  vslcall  in  #1 
set  var  v23  to  vslvalue  in  #1 
set  var  v24  to  vslsuper  in  #1 
set  var  v25  to  vslmasts  in  #1 
set  var  v26  to  sailno  in  #1 
set  var  v27  to  hlcolor  in  #1 
set  var  v28  to  trcolor  in  #1 
set  var  v29  to  slcolor  in  #1 
set  var  v30  to  cbcolor  in  #1 
set  var  v31  to  dkcolor  in  #1 
set  var  v32  to  vslmarks  in  #1 
set  var  chk.hin  to  N 
break 
else 


nev^age 

write  "This  HIN  does  not  exist  in  the  database"  at  10  20 


write  "Do  you  wish  to  reenter  the  HIN?  (Y)"  at  12  20 
fillin  correct  using  "("  at  12  52 
if  correct  exists  and  correct  eq  N  then 
set  var  chk_hin  to  N 
set  var  chk  name  to  Y 


endif 

break 

endif 

endwhile 

endwhile 

while  chk_name  eq  Y  then 
newpage 


newpage 

write  "Enter  name  of  vessel  re 


write  "Enter  name  of  vessel  requiring  modification:  "  at  10  10 
fillin  wslname  using  "  "  at  10  54 
while  wslname  exists  then 
newage 

write  "Searching  Vessel  Table.  Please  stand  by  . "  + 

at  10  10 

set  pointer  #1  el  for  vessel  where  vslname  =  .wslname 
ne^^age 

while  el  eq  0  then 

^(vessel  exists  in  database) 
set  var  wslno  to  vslno  in  #1 
set  var  wslname  to  vslname  in  #1 
set  var  wslhin  to  vslhin  in  #1 
set  var  wslmake  to  vslmake  in.#l 
set  var  wslmod  to  vslmodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  wslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
set  var  wslin  to  vsllenin  in  #1 
set  var  wslhp  to  vslhp  in  #1 
set  var  wsluse  to  vsluse  in  #1 
set  var  wsltype  to  vsltype  in  #1 
set  var  wslprop  to  vslprop  in  SI 
set  var  wslhull  to  vslnull  in  #1 
set  var  wsleng  to  vsleng  in  SI 
set  var  wslfuel  to  vslfuel  in  SI 
set  var  vconstr  to  vslconst  in  SI 
set  var  vdecal  to  cmedecal  in  Si 
set  var  vcmeyear  to  cmeyear  in  #1 
set  var  voffno  to  vsloffno  in  SI 
set  var  vhome  to  homeport  in  SI 
set  var  vcall  to  vslcall  in  Si 
set  var  walue  to  vslvalue  in  SI 
set  var  vsuper  to  vslsuper  in  Si 
set  var  vmasts  to  vslmasts  in  Si 
set  var  vsailno  to  sailno  in  SI 


3et  var  vhlcolor  to  hlcolor  in  #1 
set  var  vtrcolor  to  trcolor  in  #1 
set  var  vslcolor  to  slcolor  in  #1 
set  var  vcbcolor  to  cbcolor  in  #1 
set  var  vdkcolor  to  dkcolor  in  #1 
set  var  vmarks  to  vslmarks  in  #1 
newpage 

draw  vslmodl  with  all  at  1 
write  "Correct  vessel?  (N)"  at  22  20 
fillin  vslfound  using  at  22  36 
if  vslfound  exists  and  vslfound  eg  Y  then 
set  var  chk_name  to  N 
set  var  vl  to  vslno  in  #1 
set  var  v2  to  vslname  in  #1 
set  var  v3  to  vslhin  in  #1 
set  var  v4  to  vslmake  in  #1 
set  var  v5  to  vslmodel  in  #1 
set  var  v6  to  vslyear  in  #1 
set  var  v7  to  vsltons  in  #1 
set  var  v8  to  vsllenft  in  #1 
set  var  v9  to  vsllenin  in  #1 
set  var  vlO  to  vslhp  in  #1 
set  var  vll  to  vsluse  in  #1 
set  var  vl2  to  vsltype  in  #1 
set  var  vl3  to  vslprop  in  #1 
set  var  vl4  to  vslhull  in 
set  var  vl5  to  vsleng  in  #1 
set  var  vl6  to  vslfuel  in  #1 
set  var  vl7  to  vslconst  in  #1 
set  var  vl8  to  cmedecal  in  #1 
set  var  vl9  to  cmeyear  in  #1 
set  var  v20  to  vsloffno  in  #1 
set  var  v21  to  homeport  in  #1 
set  var  v22  to  vslcall  in  #1 
set  var  v23  to  vslvalue  in  #1 
.  set  var  v24  to  vslsuper  in  #1 

set  var  v25  to  vslmasts  in  #1 
set  var  v26  to  sailno  in  #1 
set  var  v27  to  hlcolor  in  #1 
set  var  v28  to  trcolor  in  #1 
set  var  v29  to  slcolor  in  #1 
set  var  v30  to  cbcolor  in  #1 
set  var  v31  to  dkcolor  in  #1 
set  var  v32  to  vslmarks  in  #1 
break 
endif 
next  #1  el 
endwhile 
if  el  ne  0  then 
newpage 

write  "This  vessel  does  not  exist  in  the  database"  at  10  20 
write  "Do  you  wish  to  reenter  the  vessel  name?  (Y)"  at  12  20 
fillin  correct  using  "("  at  12  60 
if  correct  exists  and  correct  eg  N  then 
set  var  chk_name  to  N 
endif 
endif 
break 
endwhile 
endwhile 
if  el  eg  0  then 
set  var  error  to  Y 
while  error  eg  Y  then 
set  var  error  to  N 
newpage 

write  "Press  [ESC]  to  guit  or  [PGDN]  to  move  down  a  page"  at  1  1 
draw  vslmodl  with  all  at  3 

edit  var  wslname  wslno  voffno  wslmake  wslmod  wslyear  wslft  + 
wslin  wslhp  wslton  wsluse  wsltype  wslprop  wslhull  wsleng  + 
wslfuel  vconstr  return  esc  pgdn 
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if  #return  eq  pgdn  then 
newpage 

write  "Press  [ESC]  to  quit  or  [PGDN]  to  load  changes"  at  1  1 
draw  vslmod2  with  all  at  3 

edit  var  vdecal  vcmeyear  vhorae  vcall  walue  vsuper  vmasts  + 
vslcolor  vsailno  vhlcolor  vtrcolor  vcbcolor  vdkcolor  vmarks  + 
return  esc  pgdn 
if  ireturn  eq  pgdn  then 

’’'(vessel  exists  in  database) 
set  error  messages  off 
newpage 

write  "changing  values  in  vessel" 
delete  rows  from  #1 
load  vessel 

.wslno  .wslname  .wslhin  .wslmake  .wslmod  .wslyear  + 
.wslton  .wslft  .wslin  .wslhp  .wsluse  .wsltype  + 

•  wslprop  .wslhull  .wsleng  .wslfuel  .vconstr  .vdecal  + 
.vcmeyear  .voffno  .vhome  .vcall  .walue  .vsuper  .vmasts  + 
.vsailno  .vhlcolor  .vtrcolor  .vslcolor  .vcbcolor  .vdkcolor  + 
.vmarks 
end 

set  pointer  #2  e2  for  vessel  where  vslhin  eq  .v3 
if  ez  ne  0  then 
load  vessel 


.vl  .v2  .v3  .v4  .v5  .v6  .v7  .v8  .v9  .vlO  .vll  .vl2  .vl3  + 
.vl4  .vis  .vl6  .vl7  .vis  .vl9  .v20  .v21  .v22  .v23  .v24  + 
.v25  .v26  .v27  .v28  .v29  .v30  .v31  .v32 
end 
endif 

set  error  messages  on 

write  "Return  to  correct  data  entered?  (N)"  at  15  10 
write  "Note;  correct  only  errors  identified  by  messages"  + 
at  20  5 


fillin  er  using  "("  at  15  42 
if  er  exists  and  er  eq  Y  then 
set  var  error  to  Y 
endif 
endif 
endif 
endwhile 
endif 
newpage 

write  "More  vessels  to  be  changed?  (N)"  at  12  20 
fillin  mrvsls  using  "<"  at  12  48 
if  mrvsls  fails  or  mrvsls  eq  N  then 
set  var  more  to  N 
endif 

endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
end  ) 


$C0MMAND 
MOD  OWOP 


Pregram: 
Author : 

Date  Written; 
Description: 


Tables  Used; 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Modify  Owner  and  Operator 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 
owner  and  operator  information  in  the 
database. 

owners,  operator,  opown 

none 

none 

ownrmodl,  ownrmod2,  opermodl,  opermod2 


*■  INI*  I^AlJl'rt't'i(**)fci'(H>*****'i'i#*‘Ji**'***^(*****it*i<r*****’fc***  *********************  i 


set  error  messages  on 

set  messages  off  ' 

set  escape  off 

newpage 

write  "Program  loading  in  progress.  Please  stand  by  . "  at  10  10 

clear  all  variables 
set  null  ? 

set  var  owchange  to  N 

set  var  opchange  to  N 

set  var  choice  to  0 

while  choice  gt  3  or  choice  It  1  then  *(main  loop) 
ne\^age 

write  "Owner  /  Operator  Change  Options"  at  10  20 

write  " . — . "  at  11  20 

write  "1.  change  owner  values"  at  13  22 

write  "2.  change  operator  values"  at  14  22 

write  "3.  quit"  at  15  22 
write  "Your  choice:  "  at  17  25 
fillin  choice  using  "  "  at  17  37 
if  choice  eq  1  then 
set  var  chk_ownr  to  Y 
while  chk_ownr  eq  Y  the.i 
*(change  owner  information) 
newpage 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  ownrmodl  at  4 
enter  var  return  esc  pgdn 
if  #return  ne  esc  then 

while  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  and  + 

ownAame  =  .vowfname 

newpage 

while  e2  eg  0  then 

*(owner  last/first  name  exist  in  database) 

set  var  vowmi  to  ownmi  in  #2 

set  var  vowdob  to  owndob  in  #2 

set  var  vowaddr  to  ownaddr  in  #2 

set  var  vowcity  to  owncity  in  #2 

set  var  vowst  to  ownstate  in  #2 

set  var  vowzip  to  ownzip  in  #2 

set  var  vowtelno  to  owntelno  in  #2 

newpage 

draw  ownrmodl  with  all  at  3 
draw  ownrmod2  with  all  at  3 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
.  if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 

set  var  ow2  to  .vowfname 

set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 

set  var  ow5  to  owncity  in  #2 

set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  o'«8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
nev^age 

write  "Do  you  wish  to  change  name?  (N)"  at  10  10 
fillin  nmchange  using  "("  at  10  38 
if  nmchange  exists  and  nmchange  eq  Y  then 
newpage 

write  "Press  [PGDN]  to  make  change  or  [ESC]  to  quit"  + 
at  1  1 


'••ir 


draw  ownrmodl  with  all  at  3 
edit  var  return  esc  pgdn 
If  #return  eg  pgdn  then 
change  ownfname  to  .vcwfname  in  #2 
change  ownlneune  to  .vowlname  in  #2 
endif 

set  var  chk_ownr  to  N 
break 
endif 
newpage 

write  "Press  [PGDN]  to  make  changes  or  [ESC]  to  quit"  + 
at  1  1 

draw  ownrmodl  with  all  at  3 
draw  ownrmod2  with  all  at  8 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 
set  var  er  to  Y 
while  er  eq  Y  then 

set  error  messages  off 
newpage 

write  "changing  values  ir  owner" 
delete  rows  from  #2 
load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  + 
•vowst  .vowzip  .vowtelno  .vowdob  .vownid 
end 

set  pointer  #3  e3  for  owners  whe  ownid  eq  .owlO 
if  e3  ne  0  then 
load  owners 

•owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  ,ow9  .owlO 
end 
endif 

set  error  messages  on 

write  "Return  to  ma'-ie  corrections?  (N)"  at  10  .10 
write  "Note:  correct  only  errors  identified  by  + 

messages"  at  IS  5 

fillin  error  using  "("  at  10  38 
if  error  exists  and  error  eq  Y  then 
newpage 

write  "Press  [PGDN]  to  make  changes" 
draw  ownrmodl  with  all  at  3 
draw  ownrmod2  with  all  at  8 
edit  var  return  esc  pgdn 
else 

set  var  er  to  N 
endif 
endwhile 

set  pointer  #1  el  for  opown  where  ownno  eq  .vownid 
newpage 

if  el  eq  0  then 
set  var  vopid  to  opno  in  #1 
set  error  messages  off 

set  pointer  #1  el  for  operator  where  opid  eq  .vopid 
set  var  vopcrse  to  opcourse  in  #1 
delete  rows  from  #1 
load  operator 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  + 
.vowst  .vowzip  .vowtelno  .vowdob  .vopcrse  .vopid 
end 

set  pointer  #1  el  for  operator  where  opid  eq  .vopid 
if  el  ne  0  then 
load  operator 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  + 
.vopcrse  .vopid 
end 
endif 

set  error  messages  on 

write  "Values  for  this  person  also  changed  in  + 

operator" 

set  var  chkownr  to  N 
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set  var  owchange  to  N 
break 
else 

set  var  owchange  to  7 
if  (^change  eq  7  then 

if  vowlname  eq  .voplname  then 
newpage 

draw  owopform  with  all  at  1 
write  "Is  this  the  same  person?  (N)"  at  20  20 
fillin  same  using  "("  at  20  45 
if  same  exists  and  same  eq  Y  then 
load  opown 

•vownid  .vopid 
end 
endif 
endif 
endif 

set  var  chk_ownr  to  N 
break 
endif 
else 
break 
endif 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage- 

write  "This  owner  does  not  exist  in  the  database"  at  5  5 
write  "Do  you  wish  to  reenter  name?  (Y)"  at  10  5 
fillin  go  using  "("  at  10  34 
if  go  exists  and  go  eq  N  then 
set  var  chk  ownr  to  N 
endif 
endif 
break 
endwhile 
else 

set  var  chk_ownr  to  N 
endif 
endwhile 

set  var  choice  to  0 
endif 

if  choice  eq  2  then 
set  var  chk_oper  to  7 
while  chk_oper  eq  Y  then 

*( change  operator  information) 
newoage 

■wri^e  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "operator  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  opermodl  at  4 
enter  var  return  esc  pgdn 
if  ttreturn  ne  esc  then 

while  voplname  exists  and  vopfname  exists  then 

set  pointer  #2  e2  for  operator  where  oplname  =  .voplname  and  + 

opfname  =  .vopfname 

neraage 

while  e2  eq  0  then 

^(operator  last/first  name  exist  in  database) 

set  var  vopmi  to  opmi  in  #2 

set  var  vopdob  to  opdob  in  #2 

set  var  vopaddr  to  opaddr  in  #2 

set  var  vopcity  to  opcity  in  #2 

set  var  vopst  to  opstate  in  #2 

set  var  vopzip  to  opzip  in  #2 

set  var  voptelno  to  optelno  in  #2 

set  var  vopcrse  to  opcourse  in  #2 

newpage 

draw  opermodl  with  all  at  3 
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draw  opermod2  with  all  at  8 
write  ^Correct  operator?  (N)"  at  22  20 
fillin  op found  using  "("  at  22  38 
if  opfound  exists  and  opfound  eq  Y  then 
set  var  opl  to  .voplname 
set  var  op2  to  .vopfname 
set  var  op3  to  opml  in  #2 
set  var  op4  to  opaddr  in  #2 
set  var  op5  to  opcity  in  #2 
set  var  op6  to  opstate  in  #2 
set  var  op7  to  opzip  in  #2 
set  var  op8  to  optelno  in  #2 
set  var  op9  to  opdob  in  #2 
set  var  oplO  to  opcourse  in  #2 
set  var  opll  to  opid  in  #2 
set  var  vopid  to  opid  in  #2 
newpage 

write  "Do  you  wish  to  change  name?  (N)"  at  10  10 
fillin  nmcnange  using  "("  at  10  38 
if  nmchange  exists  and  nmchange  eq  Y  then 
newpage 

write  "Press  [PGDN]  to  make  change  or  [ESC]  to  quit"  + 
at  1  1 

draw  opermodl  with  all  at  3 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 
change  opfname  to  .vopfname  in  #2 
change  oplname  to  .voplname  in  #2 
endif 

set  var  chk  oper  to  N 
break 
endif 
newpage 

write  "Press  [PGDN]  to  make  changes  or  [ESC]  to  quit"  + 
at  1  1 

draw  opermodl  with  all  at  3 
.draw  opermod2  with  all  at  3 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 
set  var  er  to  Y 
while  er  eq  Y  then 

set  error  messages  off 
newage 

write  "changing  values  in  operator" 
delete  rows  from  #2 
load  operator 

.voplname  .vopfname  .vopmi  .vopaddr  .vopcity  + 
.vopst  .vopzip  .voptelno  .vopdob  .vopcrse  .vopid 
end 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 
if  el  ne  0  then 
load  operator 

.opl  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9  + 
.oplO  .opll 
end 
endif 

set  error  messages  on 

write  "Return  to  make  corrections?  (N)"  at  10  10 
write  "Note:  correct  only  errors  identified  by  + 

messages"  at  15  5 

fillin  error  using  "("  at  10  38 
if  error  exists  and  error  eq  Y  then 
newpage 

write  "Press  [PGDN]  to  make  changes" 
draw  opermodl  with  all  at  3 
draw  opermod2  with  all  at  3 
edit  var  return  esc  pgdn 
else 

set  var  er  to  N 
endif 
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endwhile 

set  pointer  #1  el  for  opown  where  opno  eq  .vopid 
newpage 

if  el  eq  0  then 
set  var  vownid  to  ownno  in  #1 
set  error  messages  off 

set  pointer  #1  el  for  owner  where  ownid  eq  .vownid 

change  ownlname  to  .voplname  in  #1 

change  ownfname  to  .vopfname  in  #1 

change  ownmi  to  .vopmi  in  #1 

change  ownaddr  to  .vopaddr  to  #1 

change  owncity  to  .vopcity  in  #1 

change  ownstate  to  .vopst  in  #1 

change  ownzip  to  .vopzip  in  #1 

change  owntelno  to  .voptelno  in  #1 

change  owndob  to  .vopdob  in  #1 

set  error  messages  on 

write  "Values  for  this  person  also  changed  in  owner" 
set  var  chk  oper  to  N 
set  var  opcEange  to  N 
break 
else 

set  var  opchange  to  Y 
if  owchange  eq  Y  then 

if  voplname  eq  .vowlname  then 
newpage 

draw  owopform  with  all  at  1 
write  "Is  this  the  same  person?  (N)"  at  20  20 
fillin  same  using  "("  at  20  45 
if  same  exists  and  same  eq  Y  then 
load  opown 

.vownid  .vopid 
end 
endif 
endif 
endif 

set  var  chk^oper  to  N 
break 
endif 
else 
break  . 
endif 
endif 
next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage 

write  "This  operator  does  not  exist  in  the  database"  at  5  5 
write  "Do  you  wish  to  reenter  name?  (Y)"  at  10  5 
fillin  go  using- "("  at  10  34 
if  go  exists  and  go  eq  N  then 
set  var  chk  oper  to  N 
endif 
endif 
break 
endwhile 
else 

set  var  chk_oper  to  N 
endif 
endwhile 

set  var  choice  to  0 
endif 

endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 


return 


*(  end  ) 


$COHMAND 
MOD  SUT 


Program: 
Author ! 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Modify  Sar  Unit 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 

sar  unit  data  in  the  database. 

sar,  sarunits 

none 

none 

sunitmod 


*****:fc****:*t***:fcA****yt***********************************************:fci^*  ) 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  . "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  more  to  Y 
set  var  vfoldno  text 
set  var  vunit  text 
set  var  foldok  to  N 
while  more  eq  Y  then  *(main  loop) 
set  var  name  to  N 
set  var  both  to  Y 
set  var  done  to  N 
set  var  change  to  N 

while  both  eq  Y  then  *(check  both  folder  number  and  unit  name) 
newpage 

if  foldok  eq  N  then 

write  "Enter  sar  folder  number  of  unit  data  requiring  + 
modification:  "at  10  1 

fillin  vfoldno  using  "  "  at  10  61 
endif 

write  "Enter  name  of  unit  requiring  modification:  "  at  12  1 
write  "(or  enter  'xxx'  to  list  units)"  at  13  5 
fillin  vunit  using  "  "  at  12  43 
while  vfoldno  exists  and  vunit  exists  then 

set  pointer  #1  el  for  sarunits  where  foldno  eq  .vfoldno  and  +  • 

unitname  eq  .vunit 

newpage 

if  el  eq  0  then 

set  var  vunit  to  unitname  in  #1 
set  var  vuwtime  to  uwtime  in  #1 
set  var  vuwdate  to  uwdate  in  #1 
set  var  voseta  to  oseta  in  #1 
set  var  vetadate  to  etadate  in  #1 
set  var  vostime  to  ostime  in  #1 
set  var  vdateos  to  osdate  in  #1 
set  var  valgtime  to  alngtime  in  #1 
set  var  valgdate  to  alngdate  in  #1 
set  var  vtowtime  to  towtime  in  #1 
set  var  vtowdate  to  towdate  in  #1 
set  var  vdvmoort  to  dvmoored  in  #1 
set  var  vdvmoord  to  dvmdate  in  #1 
set  var  vsumoort  to  sutmoor  in  #1 
set  var  vsumoord  to  sutdate  in  #1 
set  var  sul  to  foldno  in  #1 
set  var  su2  to  unitname  in  #1 
set  var  su3  to  uwtime  in  #1 
set  var  su4  to  uwdate  in  #1 
set  var  su5  to  oseta  in  #1 
set  var  su6  to  etadate  in  #1 
set  var  su7  to  ostime  in  #1 
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set  var  su8  to  osdate  in  #1 
set  var  su9  to  alngtlme  in  #1 
set  var  sulO  to  alngdate  in  #1 
set  var  sull  to  towtime  in  #1 
set  var  sul2  to  towdate  in  #1 
set  var  sul3  to  dvmoored  in  #1 
set  var  sul4  to  dvmdate  in  #1 
set  var  sulS  to  sutmoor  in  #1 
set  var  sul6  to  sutdate  in  #1 
set  var  change  to  Y 
set  var  both  to  N 
break 
else 

set  pointer  #2  e2  for  sarunits  where  foldno  eq  .vfoldno 
newpage 

if  e2  eq  0  then 

set  var  foldok  to  Y 
if  vunit  eq  xxx  then 
set  var  both  to  M 
set  var  name  to  Y 
break 
endif 
nemage 

write  "This  unit  name  does  not  exist  with  this  folder  + 
number"  at  10  10 

write  "Do  you  wish  to  reenter  the  unit  name?  (Y)"  at  12  10 
fillin  correct  using  "("  at  12  48 
if  correct  exists  and  correct  eq  N  then 
set  var  both  to  N 
set  var  name  to  Y 
endif 
break 
else 
newpage 

write  "This  folder  number  does  not  exist  in  the  database" 
at  10  10 

write  "Do  you  wish  to  reenter  the  folder  number?  (Y)"  at  12  10 
fillin  correct  using  "("  at  12  52 
if  correct  fails  or  correct  eq  Y  then 
break 
else 

set  var  both  to  N 
set  var  done  to  Y 
break 
endif 
endif 
endif 
endwhile 
endwhile 

while  name  eq  Y  then  ^(search  on  name  with  existing  folder  number) 
newpage 

write  "The  following  unit  names  exist  within  the  indicated  folder  + 
number"  at  1  2 
write  "  " 

sel  unitname  from  sarunits  where  foldno  eq  .vfoldno 
write  "Do  you  wish  to  enter/reenter  the  unit  name?  (Y)"  at  20  10 
fillin  reenter  using  "("  at  20  54 
if  reenter  exists  and  reenter  eq  N  then 
set  var  done  to  Y 
endif 
break 
endwhile 

if  change  eq  Y  then 
newpage 

write  "press  [PGDN]  to  load  changes  or  [ESC]  to  quit"  at  1  1 
draw  sunitmod  with  all  at  3 

edit  var  vunit  vuwtime  vuwdate  voseta  vetadate  vostime  vdateos  + 
valgtime  valgdate  vtowtime  vtowdate  vdvmoort  vdvmoord  vsumoort  + 
vsumoord  return  esc  pgdn 
if  #return  eq  pgdn  then 
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set  error  messages  off 
delete  rows  from  #1 
load  sarunlts 

.vfoldno  .vunit  .vuwtime  .vuwdate  .voseta  .vetadate  .vostime  + 
.vdateos  .valgtime  .valgdate  .vtowtime  .vtowdate  .vdvmoort  + 
.vdvmoord  .vsumoort  .vsumoord 
end 

set  pointer  #2  e2  for  sarunlts  where  foldno  eq  .sul  and  + 
unitname  eq  .su2 
if  e2  ne  0  then 
load  sarunlts 

.sul  .su2  .su3  .su4  .suS  .su6  .su7  .su8  .su9  .sulO  .sull  + 
.sul2  .sul3  .sul4  .sul5  .sul6 
end 
endif 

set  error  messages  on 
endif 

set  var  done  to  Y 
endif 

if  done  eq  Y  then 
newpage 

write  "More  sar  units  to  be  changed?  (N)"  at  12  20 
fillin  mrsut  using  "("  at  12  50 
if  mrsut  fails  or  mrsut  eq  N  then 
set  var  more  to  N 
else 

set  var  foldok  to  N 
endif 
endif 

endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
*(  end  ) 


$C0MMAND 

MOD^VHIN 


Program  s 
Author : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Modify  Vessel  HIN 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  allows  the  user  to  modify 
vessel  hull  identification  numbers  in 
the  database. 

vessel,  sar,  boarding,  owvsl,  opvsl 

none 

none 

vhinform 


***********************************************************************  ^ 


set  error  messages  on 
set  messages  oft 
set  escape  off 
ne^age 

write  "Program  loading  in  progress.  Please  stand  by 

clear  all  variables 

set  null  ? 

set  var  more  to  Y 

while  more  eg  Y  then  *(main  loop) 
set  var  vsifound  to  N 
set  var  chk_hin  to  Y 
set  var  chk^name  to  N 
while  chk_hin  eq  Y  then 
newpage 

set  var  wslhin  text 


at  10  10 


write  "Enter  incorrect  vessel  him  "  at  10  10 
write  "(enter  'xxx'  to  search  by  vessel  name)"  at  12  5 
fillin  wslhin  using  "  "  at  10  37 
while  wslhin  exists  then 
if  wslhin  eg  xxx  then 
set  var  chk_hin  to  N 
set  var  chk_name  to  Y 
break 
endif 

set  pointer  #1  el  for  vessel  where  vslhin  =  .wslhin 
newpage 

if  el  eg  0  then 
^(vessel  exists  in  database) 
set  var  wslno  to  vslno  in  #1 
set  var  wslname  to  vslname  in  #1 
set  var  wslmake  to  vslmake  in  #1 
set  var  wslmod  to  vslmodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  wslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
set  var  wslin  to  vsllenin  in  #1 
set  var  wslhp  to  vslhp  in  #1 
set  var  wsluse  to  vsluse  in  #1 
set  var  wsltype  to  vsltype  in  #1 
set  var  wslprop  to  vslprop  in  #1 
set  var  wslhuli  to  vslnull  in  #1 
set  var  wsleng  to  vsleng  in  #1 
set  var  vvslfuel  to  vslfuel  in  #1 
set  var  vconstr  to  vslconst  in  #1 
set  var  voffno  to  vsloffno  in  #1 
draw  vhinform  with  ail  at  1 
write  "Correct  vessel?  (Y)"  at  22  20 
fillin  vfound  using  "("  at  22  36 
if  vfound  fails  or  vfound  eg  Y  then 
set  var  chk  hin  to  N 
set  var  vs  Hound  to  Y 
break 
else 
newpage 

write  "Do  you  wish  to  reenter  the  HIN?  (Y)"  at  12  20 
fillin  reenter  using  "("  at  12  52 
if  reenter  exists  and  reenter  eg  N  then 
set  var  chk_hin  to  N 
set  var  chk_name  to  Y 
break 
endif 
endif 
else 
newpage 

write  "This  HIN  does  not  exist  in  the  database"  at  10  20 
write  "Do  you  wish  to  reenter  the  HIN?  (Y)"  at  12  20 
fillin  correct  using  "("  at  12  52 
if  correct  exists  and  correct  eg  N  then 
set  var  chk_hin  to  N 
set  var  chk  name  to  Y 
endif 
break 
endif 
endwhile 
endwhile 

while  chk_name  eg  Y  then 
newpage 

write  "Enter  name  of  vessel  requiring  HIN  correction:  "  at  10  10 
fillin  wslname  using  "  "  at  10  56 
while  wslname  exists  then 

set  pointer  #1  el  for  vessel  where  vslname  =  .wslname 
newpage 

while  el  eg  0  then 

^(vessel  exists  in  database) 
set  var  wslno  to  vslno  in  #1 


set  var  wslname  to  vslname  in  #1 
set  var  wslhln  to  vslhln  in  #1 
set  var  wslmake  to  vslmake  in  #1 
set  var  wslmod  to  vslmodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  wslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
set  var  wslin  to  vsllenin  in  #1 
set  var  wslhp  to  vslhp  in  #1 
set  var  wsluse  to  vsluse  in  #1 
set  var  wsltype  to  vsltypc  in  #1 
set  var  wslprop  to  vslprop  in  #1 
set  var  wslhull  to  vslhull  in  #1 
set  var  wsleng  to  vsleng  in  #1 
set  var  wslfuel  to  vslfuel  in  #1 
set  var  vconstr  to  vslconst  in  #1 
set  var  voffno  to  vsloffno  in  #1 
newpage 

draw  vhinform  with  all  at  1 
write  "Correct  vessel?  (N)"  at  22  20 
fillin  foundv  using  "("  at  22  36 
if  foundv  exists  and  foundv  eq  Y  then 
set  var  chk  name  to  N 

set  var  vsllound  to  Y 

break 
endif 

next  #1  el 
endwhile 
if  el  ne  0  then 
ne^age 

write  "This  vessel  does  not  exist  in  the  database"  at  10  20 

write  "Do  you  wish  to  reenter  the  vessel  name?  (Y)"  at  12  20 

fillin  correct  using  at  12  60 
if  correct  exists  and  correct  eq  M  then 
set  var  chk_name  to  N 
endif 
endif 
break- 
endwhile 
endwhile 

if  vslfound  eq  Y  then 
set  var  vbadhin  to  .wslhin 
set  var  error  to  Y 
while  error  eq  Y  then 
set  var  error  to  N 
newpage 

write  "Press  [PGDN]  to  change  HIN  or  [ESC]  to  quit"  at  1  1 
draw  vhinform  with  all  at  3 
edit  var  wslhin  return  esc  pgdn 
if  ttreturn  eq  pgdn  then 
newpage 

change  vslhin  to  .wslhin  in  #1 

write  "Return  to  correct  HIN  entered?  (Y)"  at  15  10 
fillin  er  using  "("  at  15  41 
if  er  fails  or  er  eq  Y  then 
set  var  error  to  x 
else 

set  pointer  #1  el  for  owvsl  where  vhinown  eq  .vbadhin 
write  "Changing  values  in  owvsl" 
while  el  eq  0  then 

change  vhinown  to  .wslhin  in  #1 
next  #1  el 
endwhile 

set  pointer  #1  el  for  opvsl  where  vhinoper  eq  .vbadhin 
write  "Changing  values  in  opvsl" 
while  el  eq  0  then 

change  vhinoper  to  .wslhin  in  #1 
next  #1  el 
endwhile 

set  pointer  #1  el  for  sar  v’here  sarvhin  eq  .vbadhin 
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write  "Changing  values  In  sar" 
while  el  eq  0  then 
change  sarvhin  to  .wslhin  in  #1 
next  #1  el 
endwhile 

set  pointer  #1  el  for  boarding  where  bovhin  eq  .vbadhin 
write  "Changing  values  in  boarding" 
while  el  eq  0  then 

change  bovhin  to  .wslhin  in  #1 
next  #1  el 
endwhile 
endif 
endif 
endwhile 
endif 
newoage 

write  "More  vessels  to  be  changed?  (N)"  at  12  20 
fillin  mrvsls  using  "("  at  12  48 
if  mrvsls  fails  or  mrvsls  eq  N  then 
set  var  more  to  N 
endif 

endwhile  *(end  of  main  loop) 

set  error  messages  off 

set  null  -0- 

return 

*(  end  ) 


$C0MMAND 
AM  VINT 

7C  ^^:fc******i<t*********yc**i*f***:<t***i<t******************;<f  ********************* 


Program: 
Author : 

Date  Written: 
Description: 


Tables  Ui'ed: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Add  .and  Modify  Vessel  Intelligence 


cy  V 

H  R  Lang  and  J  D 


Allen 


August  ?9b 
This  program  allows  the  user  to  input 
and  modify  vessel  intelligence 
information, 
vslintel 
none 
none 

vintform 


***********************************************************************> 


set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  . "  at  10  10 

clear  all  variables 

set  null  ? 

set  var  more  to  Y 

while  more  eq  Y  then  *(main  loop) 
newpage 

write  "Do  you  wish  to  (A)dd  or  (M)odify  information?"  at  10  10 
fillin  choice  using  ">"  at  11  20 
if  choice  eq  A  then  ^(add  information) 
set  var  vintdate  to  .#date 
set  var  vepic  text 
label  redovsl 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  vintform  with  all  at  3 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 
newpage 

write  "Loading  vslintel" 
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uma 
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set  error  messages  off 
load  vsllntel 

•  wslname  .vintdate  .vepic  .vstolen  .vintreml  .vintrem2  + 
.vintremS 
end 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 

write  "Note:  correct  only  errors  indicated  by  messages"  at  20  5 

fillin  fixvsl  using  at  15  36 

if  fixvsl  exists  and  fixvsl  eq  Y  then 

foto  redovsl 
if 

endif 

endif 

while  choice  eq  M  then  ^(modify  information) 
newpage 

write  "Enter  name  of  vessel  requiring  changes  then  press  [PGDN]  + 
to  see  if"  at  1  1 

write  "vessel  exists  in  the  database  or  [ESC]  to  quit"  at  2  1 
draw  vintform  with  all  at  4 
edit  var  wslname  return  esc  pgdn 
if  ttreturn  eq  pgdn  then 

set  pointer  ffl  el  for  vslintel  where  intvname  eq  .wslname 
while  el  eq  0  then 

set  var  wslname  to  intvname  in  #1 
set  var  vintdate  to  intdate  in  #1 
set  var  vepic  to  epiccode  in  #1 
set  var  vstolen  to  stolen  in  #1 
set  var  vintreml  to  vremarkl  in  #1 
set  var  vintrem2  to  vremark2  in  #1 
set  var  vintrem3  to  vremark3  in  #1 
newpage 

draw  vintform  with  all  at  1 
write  "Correct  vessel?  (Y)"  at  23  25 
fillin  correct  using  "("  at  23  41 
if  correct  fails  or  correct  eq  Y  then 
label  corvsl 
newpage 

write  "Press  [PGDN]  to  change  database  or  [ESC]  to-  quit"  + 
at  1  1 

draw  vintform  with  all  at  3 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 
newpage 

write  "changing  values  in  vslintel" 
set  error  messages  off 
change  intvname  to  .wslname  in  #1 
change  intdate  to  .vintdate  in  #1 
change  epiccode  to  .vepic  in  #1 
change  stolen  to  .vstolen  in  #1 
change  vremarkl  to  .vintreml  in  #1 
change  vremark2  to  .vintrem2  in  #1 
change  vremark3  to  .vintrem3  in  #1 
set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 

write  "Note;  correct  only  errors  indicated  by  messages"  + 

at  20  5 

fillin  vslfix  using  "("  at  15  36 
if  vslfix  exists  and  vslfix  eq  Y  then 
goto  corvsl 
endif 
endif 

set  var  choice  to  N 
break 
endif 
next  #1  el 
endwhile 
if  el  ne  0  then 
newpage 

write  "This  vessel  does  not  exist  in  the  vessel  intelligence  + 
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file"  at  5  10 

write  "Do  you  wish  to  reenter  name?  (Y)"  at  15  10 
fillin  reenter  using  "("  at  15  39 
if  reenter  exists  and  reenter  eg  N  then 
break 
else 

clear  wslname 
clear  vintdate 
clear  vepic 
clear  vstolen 
clear  vintreml 
clear  vintrem2 
clear  vintremS 
endif 
endif 
else 
break 
endif 
endwhile 
nevraage 

write  "More  intelligence  to  enter/modify?  (N)"  at  15  20 
fillin  mrintel  using  "("  at  15  55 
if  mrintel  fails  or  mrintel  eg  Y  then 
clear  all  variables 
set  var  more  to  Y 
else 

set  var  more  to  N 
endif 

endwhile  *(end  of  main  loop) 

set  error  messages  off 

set  null  -0- 

return 

*(  end  ) 


SCOMMAND 
AM  PINT 


Program: 

Author: 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables; 
Reports  Used; 
Forms  Used: 


Add  and  Modify  Personnel  Intelligence 
H  R  Lang  and  j  D  Allen 
August  1987 

This  program  allows  the  user  to  input 

and  modify  personnel  intelligence 

information. 

perintel 

none 

none 

pintform 


***:fc*A*:<c********yt*********::!*A*************A*************************:***  J 

set  error  messages  on 
set  messages  oft 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by . "  at  10  10 

clear  all  variables 

set  null  ? 

set  var  more  to  Y 

while  more  eg  Y  then  *(main  loop) 
ne^^age 

write  "Do  you  wish  to  (A)dd  or  (M)odify  information?"  at  10  10 
fillin  choice  using  ">"  at  11  20 
if  choice  eg  A  then  *(add  information) 
newpage 

set  var  vintdate  to  .#date 
set  var  vintdob  to  01/01/1901 
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write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  plntform  with  all  at  3 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 
newpage 

write  "Loading  perintel" 
load  perintel 

.vlname  .vintdob  .vintreml  .vintrem2  .vintremS  .vintdate  + 
•vfname  .vintmi 
end 
endif 
endif 

while  choice  eq  M  then  *  (modify  information) 
nev^age 

write  "Enter  last  and  first  names  of  individual  requiring  + 
changes,  then  press"  at  1  1 

write  "[PGDN]  to  see  if  person  exists  in  the  database  or  [ESC]  + 
to  quit"  at  2  1 

draw  pintform  with  all  at  4 

edit  var' vlname  vfname  return  esc  pgdn 

if  ttreturn  eq  pgdn  then 

set  pointer  #1  el  for  perintel  where  intlname  eq  .vlname  and  + 
intfhame  eq  .vfname 
while  el  eq  0  then 

set  var  vlname  to  intlname  in  #1 
set  var  vfname  to  intfname  in  #1 
set  var  vintdob  to  intdob  in  #1 
set  var  vintmi  to  intmi  in  #1 
set  var  vintreml  to  pintreml  in  #1 
set  var  vintrem2  to  pintrem2  in  #1 
set  var  vintrem3  to  pintremS  in  #1 . 
set  var  vintdate  to  pintdate  in  #1 
newpage 

draw  pintform  with  all  at  1 
write  "Correct  individual  (Y)"  at  23  25 
fillin  correct  using  "("  at  23  44 
if  correct  fails  or  correct  eq  Y  then 
newpage 

write  "Press  [PGDN]  to  change  database -or  [ESC]  to  quit"  + 
at  1  1 


draw  pintform  with  all  at  3 
edit  var  return  esc  pgdn 
if  ^return  eq  pgdn  then 
set  error  messages  off 
change  intlname  to  .vlname  in  #1 
change  intdob  to  .vintdob  in  #1 
change  pintreml  to  .vintreml  in  #1 
change  pintrem2  to  .vintremZ  in  #1 
change  pintremS  to  .vintremS  in  #1 
change  pintdate  to  .vintdate  in  #1 
change  intfname  to  .vfname  in  #1 
change  intmi  to  .vintmi  in  #1 
set  error  messages  on 
endif 

set  var  choice  to  N 
break 
endif 

next  #1  el 
endwhile 
if  el  ne  0  then 
newpage 

write  "This  individual  does  not  exist  in  the  personnel  + 
intelligence  file"  at  5  10 

write  "Do  you  wish  to  reenter  name?  (Y)"  at  15  10 
fillin  reenter  using  "("  at  15  39 
if  reenter  exists  and  reenter  eq  N  then 
break 
else 

clear  vlname 
clear  vfname 
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clear  vintdob 
clear  vintreml 
clear  vlritrem2 
clear  vintrem3 
clear  vintmi 
clear  vintdate 
endif 
endif 
else 
break 
endif 
endwhile 
newpage 

write  "More  intelligence  to  enter/modify?  (Y)"  at  15  20 
fillin  mrintel  using  "("  at  15  55 
if  mrintel  fails  or  mrintel  eq  Y  then 
clear  all  variables 
set  var  more  to  Y 
else 

set  var  more  to  N 
endif 

endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
end  ) 
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APPENDIX  I 

SREPORTS  SOURCE  CODE 


$COMMAND 

RPTMAIN 

*^  ********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

REPORTS  MAIN  MENU  APPLICATION  PROGRAM 


Author*  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

***********************************************************************  j 

set  error  messages  off 
set  messages  off 
set  escape  off 
clear  all  variables 
newpage 

set  var  pick4  integer 
newpage 

choose  pick4  from  rpt  menu  in  sreports.apx 
if  pick4  eq  0  then 

quit  to  restrpts.cmd 
endif 

if  pick4  eq  1  then 

run  INT_RPTS  in. sreports.apx 
quit  to  restrpts.cmd 
endif 

if  pick4  eq  2  then 

run  BRD_RPTS  in  sreports.apx 
quit  to  restrpts.cmd 
endif 

if  pick4  eq  3  then 

run  SAR_RPTS  in  sreports.apx 
quit  to  restrpts.cmd 
endif 

if  pick4  eq  4  then 

run  VSL_RPTS  in  sreports.apx 
quit  to  restrpts.cmd 
endif 

if  pick4  eq  5  then 

run  PRS_RPTS  in  sreports.apx 
quit  to  restrpts.cmd 
endif 

if  pick4  eq  6  then 

quit  to  restmain.cmd 
endif 

quit  to  restrpts.cmd 

return 

$menu 

rpt_menu 

column  SARELTIS  —  REPORTS  MENU 

INTELLIGENCE  REPORTS 

BOARDING  REPORTS 

SAR  REPORTS 

VESSEL  REPORTS 

PERSONNEL  REPORTS 
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RETURN  TO  MAIN  MENU 
*(  end  ) 


$COMMAND 
INT  RPTS 


Program : 
Author : 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Intelligence  Reports 
J  D  Allen  and  n  R  Lang 
August  1987 

This  program  calls  the  intelligence  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


*******:fc***********************yt*************yt*****************:fc*******  ) 

run  INT_MAIN  in  intrpts.apx 

return 

*{  end  ) 


$COMMAND 
BRD  RPTS 


Program: 

Author: 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Boarding  Reports 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  boarding  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


***A**********************i>t******  ***★**********************************) 

run  BRD.MAIN  in  brdrpts.apx 

return 

*(  end  ) 


$C0MMAND 
SAR  RPTS 


Program: 

Author: 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Sar  Reports 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  SAR  reports  master 

menu  and  application  programs. 

none 

none 

none 

none 


******:<t***:k:fc:fc*********jit*******************************]*t***A**********A*  J 

run  SAR  MAIN  in  sarrpts.apx 

return 

*(  end  ) 
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$COMHAND 
VSL  RPTS 

*^*y*AX**)<c*************A**********:fc*:fc:fc*********yt************5'c**:<t***A**** 


Program: 
Author  t 
Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Vessel  Reports 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  vessel  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


*******:•:***************************************************************  ) 

run  VSL_MAIN  in  vslrpts.apx 

return 

*(  end  ) 


$C0MMAND 
PRS  RPTS 


Program: 

Author; 

Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used; 


Access  Personnel  Reports 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  calls  the  personnel  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


run  PRS^MAIN  in  prsrpts.apx 

return 

*(  end  ) 
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APPENDIX  J 
INTRPTS  SOURCE  CODE 


$C0MMAND 
INT  MAIN 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

INTELLIGENCE  REPORTS  MENU  and  APPLICATION  PROGRAMS 


Author;  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

set  error  messages  off 
set  messages  off 
set  escape  off 
clear  all  variables 
newpage 

choose  picks  from  int_menu  in  intrpts.apx 
if  picks  eq  0  then 
quit  to  restint.cmd 
endif 

if  picks  eg  1  then 

run  EPICDUMP  in  intrpts.apx 
quit  to  restint.cmd 
endif 

if  picks  eg  2  then 

run  INTELRPT  in  intrpts.apx 
quit  to  restint.cmd 
endif 

if  picks  eg  3  then 

run  PERINTEL  in  intrpts.apx 
quit  to  restint.cmd 
endif 

if  picks  eq  4  then 

ouit  to  restrprs.cmd 
endif 

if  picks  eq  5  then 
quit  to  restint.cmd 
endif 

quit  to  restint.cmd 

return 

$menu 

int_menu 

column  SARELTIS  ---  INTELLIGENCE  REPORTS 
VESSEL  INTELLIGENCE  ANALYSIS  (EPIC) 

VESSEL  PROFILE  FOR  INDIVIDUAL  VIOLATIONS  ANALYSIS 
PERSONNEL  INTELLIGENCE  SUMMARY 
RETURN  TO  REPORTS  MENU 
end  ) 


$ COMMAND 
PERINTEL 


Program 1 
Author  > 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Personnel  Intelligence  Dump  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  listing  by  date  and 

by  alphabtic  search  of  those  personnel  in 

the  table  PERINTEL  (personnel  intelligence). 

perintel 

persum 

perintel 

none 


***********************************************************************) 

set  null  "  " 
set  error  messages  off 
set  messages  off 
set  escape  on 
newpage 

clear  all  variables 
set  error  messages  off 

write  "This  program  will  perform  dump  intelligence  information"  at  3  1 

write  "on  people  that  are  in  the  PERiNTEL  table.  Information"  at  4  1 

write  "may  be  selected  by  alphabetic  and  intelligence  date."  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in,  the  form  HM/DD/YYYY:"  at  8  1 
fillin  strtdate  using  "  "  at  8  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 
fillin  enddate  using  "  "  at  10  53 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 
newpage 

write  "You  will  now  be  asked  to  provide  beginning  and  ending  "  at  3  1 
write  "letters  to  start  and  end  the  alphabetic  search.  If  you  "  at  4  1 
write  "enter  an  [a]  and  a  [z]  ‘you  will  get  all  of  the  personnel"  at  5  1 
write  "in  the  the  table  PERINTEL  whose  intelligence  date  is  "  at  6  1 
write  "between  the  dates  that  you  previously  entered."  at  7  1 
set  var  strtltr  text 
set  var  endltr  text 
set  var  Itrdiff  to  0 
while  Itrdiff  =  0  then 

fillin  strtltr  using  "Please  enter  starting  letter(s):"  at  10  1 
fillin  endltr  using  "Please  enter  ending  letter(s):"  at  12  1 
if  endltr  It  .strtltr  then 
set  var  Itrdiff  to  0 
else 
break 
endif 
endwhile 

set  error  messages  off 

remove  persum 

newpage 

clear  numrows 

set  var  numrows  integer 

project  persum  from  perintel  using  all  sorted  by  intlname  + 
where  pintdate  ge  .strtdate  and  pintdate  le  .enddate  and  + 
intlname  ge  .strtltr  and  intlname  le  .endltr 
compute  numrows  as  rows  from  persum 
newpage 

write  "Now  preparing  report" 
if  numrows  fails  or  numrows  =  0  then 

write  "No  records  exist  that  match  your  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  15 
pause 
else 

output  printer  with  perintel. rpt 
nev^jage 
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print  perlntel 
output  screen 
endlf 

remove  persum 
newpage 

clear  all  variables 

return 

*(  end  ) 


$C0MMAND 

EPICDUMP 


Program: 
Author : 

Date  Written; 
Description; 


Tables  Used: 
Temp  Tables; 

Reports  Used: 
Forms  Used; 


EPIC  Intelligence  Analysis 
J  D  Allen  and  H  R  Lang 
August  1987 

Performs  a  dump  of  all  vessels  in  the 
VSLINTEL  table  within  a  specified  time 
period.  Four  reports  are  generated 
providing  listings  by  EPIC  Code,  by 
stolen  vessels,  and  By  intelligence 
remarks,  and  a  frequency  breakdown 
and  analysis  of  EPlC  Codes, 
vslintel 

epicsum,  stolesum,  intelsum,  epictmpl, 
epictmp2,  epictmp 

epicsum,  stolesum,  intelsum,  epicrpt 
none 


set  error  messages  off 
set  messages  off 
set  escape  on  > 
newpage 

clear  all  variables  ‘ 
set  null  "  " 
nev^age 

write  "This  program  performs  a  dump  of  all  vessels,  by  EPIC  + 
Code/Stolen"  at  2  1 

write  "codes,  which  intelligence  information  has  been  collected."  + 
at  3  1 

write  "Information  to  be  analyzed  can  be  selected  within  a  specified"  + 
at  4  1 

write  "time  period,"  at  5  1 
set  var  strtdate  date 
set  var  enddate  date 
set  var  datediff  to  0 
set  error  messages  on 
while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY;"  at  8  1 
fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY;"  at  10  1 
fillin  enddate  using  "  "  at  10  51 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  epicsum 
remove  stolesum 
remove  intelsum 
newpage 

project  epicsum  from  vslintel  using  epiccode  intdate  intvname  stolen  + 
sorted  by  epiccode  intvname  where  intdate  >=  .strtdate  and  + 
intdate  <=  .enddate  and  epiccode  exists 
compute  numrows  as  rows  from  epicsum 
newpage 

write  "Now  preparing  sorted  vessel  EPIC  Code  report . "  at  10  1 

if  numrows  fails  or  numrows  =  0  then 
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write  "No  records  exist  that  match  your  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  15 
pause 
else 

output  printer  with  epicsum.rpt 
newpage 
print  epicsum 
output  screen 
endif 

remove  epicsum 
newpage 
clear  numrows 

project  stolesum  from  vslintel  using  intdate  intvname  stolen  sorted  by 
intvname  where  intdate  >=  .strtdate  and  intdate  <=  .enddate  and  + 
stolen  =  Y 

compute  numrows  as  rows  from  stolesum 

write  "Now  preparing  sorted  stolen  vessel  report . "  at  10  1 

if  numrows  fails  or  numrows  =  0  then 

write  "No  records  exist  that  match  your  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  15 
pause 
else 

output  printer  with  stolesum. rpt 
ne^^age 

print  stolesum 
output  screen 
endif 

remove  stolesum 
newpage 
clear  numrows 

project  intelsum  from  vslintel  using  intdate  vremarkl  vremarkZ  + 
vremarkS  intvname  sorted  by  intvname  intdate  where  vremarkl  exists  + 
or  vremark2  exists  or  vremarkS  exists 
compute  numrows  as  rows  from  intelsum 

write  "Now  preparing  sorted  vessel  intelligence  remarks  report"  at  10  1 
if  numrows  fails  or  numrows  =  0  then 

write  "No  records  exist  that  match  your  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  15 
pause 
else 

output  printer  with  intelsum. rpt 
nev^age 

print  intelsum 
output  screen 
endif 

remove  intelsum 
remove  epictmpl 
remove  epictmp2 
newpage 

project  epictmpl  from  vslintel  using  epiccode  intdate  where  intdate  + 

>=  .strtdate  and  intdate  <=  .enddate  and  epiccode  exists 

project  epictmp2  from  epic  using  ail  sorted  by  epicno 

remove  epictmp 

define 

attribute 

ecpct  real 

ecnumber  integer 

relation 

epictmp  with  epicno  epicdscl  epicdsc2  epicdsc3  epicdsc4  ecnumber  ecpct 
end 

compute  totepics  as  count  epiccode  from  epictmpl  where  epiccode  exists 

set  var  pcttmpl  real 

set  pointer  #1  nl  for  epictmp2 

while  nl  eq  0  then 

set  var  epictest  to  epicno  in  #1 
set  var  edscl  to  epicdscl  in  #1 
set  var  edsc2  to  epicdsc2  in  #1 
set  var  edsc3  to  epicdsc3  in  #1 
set  var  edsc4  to  epicdsc4  in  #1 

compute  epicnum  as  count  epiccode  from  epictmpl  where  + 


eplccode  »  .epictest 
If  totepics  K  0  then 

set  var  pcttmpl  to  .epicnum  /  1.0  *  (prevents  division  by  0) 

else 

set  var  pcttmpl  to  .epicnum  /  .totepics 
endif 

set  var  pcttmp2  to  .pcttmpl  x  100.0 
load  epictmp 

.epictest  .edscl  .edsc2  .edsc3  .edsc4  .epicnum  .pcttmp2 
end 

next  #1  nl 
endwhile 

write  "Now  preparing  vessel  EPIC  code  frequency  report . "  at  10  1 

output  printer  with  epicrpt.rpt 

newpage 

print  epicrpt 

newpage 

output  screen 

remove  epictmp2 

remove  epictmp 

remove  epictmpl 

newpage 

clear  all  variables 

return 

*(  end  ) 


$C0MMAND 

INTELRPT 

*^  *******★**:*  j>t*****)lt5>t:<t***jlt**yt:^*:fc*>k;*t*yc!^*****7it**A*i<t***5^*i>t****5<ciit****)*t****** 

Program:  Violation  Vessel  Profile  Intelligence 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written;  August  1987 

Description:  This  program  examines  vessel  boardings  to 

create  a  profile  of  vessel  which  violate 
specific  laws  during  a  specified  time  period. 
Tables  Used:  boarding,  vessel,  viols,  boattype,  boatuse, 

constr,  engcomp,  fuelcomp,  hullmat,  boatprop 
Temp  Tables:  bosum,  vslsum,  violsum,  vslmo, 

summaryl,  summary2,  summary3,  summary4, 
summaryS,  summaryS,  summary?,  temp 
Reports  Used;  vtypemo,  vusemo,  vconstmo,  vengmo, 

vfuelmo,  vhullmo,  vpropmo,  vlenftmo, 
vyearmo 

Forms  Used:  none 

**************Ayc**5>c*:fc*ilc**yt*A***A:*t*yt****yf:fc*:<[5>ry*yt7'c**yc5it****yf ***************  ^ 

set  null  "  " 
set  error  messages  off 
set  messages  oft 
set  escape  on 
newpage 

clear  all  variables 
remove  vslsum 
remove  bosum 
remove  violsum 
remove  temp 
remove  summaryl 
remove  summary2 
remove  summary3 
remove  summary4 
remove  summaryS 
remove  summaryS 
remove  summary? 
newpage 

clear  all  variables 

write  "This  module  performs  a  statistical  analysis  of  vessel  "  at  2  1 


write  "intelligence  information  during  a  specified  time  period  "  at  3  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY;"  at  8  1 
fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY;"  at  10  1 
fillin  enddate  using  "  "  at  10  51 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 

write  "Now  finding  information  which  meets  date  criteria . "  at  14  1 

project  bosum  from  boarding  using  bodate  bono  viol54  viol55  viol56  + 
viol57  viol58  viol59  viol60  violbl  viol62  viol63  viol64  viol65  viol66  + 
viol67  7iol68  uns69  uns70  uns71  uns72  uns73  uns74  uns75  uns76  uns77  + 
uns78  uns79  bovhin  weapons  where  bodate  >=  .strtdate  and  + 
bodate  <=  .enddate 

project  vslsum  from  vessel  using  vslconst  vsleng  vslfuel  vslhull  + 

vsllenft  vslprop  vsltype  vsluse  vslyear  vsltons  vslhin 

join  bosum  using  bovhin  with  vslsum  using  vslhin  forming  violsum  + 

where  eq 

remove  bosum 

remove  vslsum 

compute  totbrds  as  count  bono  from  violsum  where  bono  exists 

compute  numrows  as  rows  from  violsum 

newpage 

set  var  code  to  0 

set  error  messages  on 

while  code  <  54  or  code  >  80  then 

write  "Please  enter  in  violation  code  or  unsafe  condition  that  "  + 
at  1  1 

write  "you  wish  to  run  a  vessel  desription  statistical  summary:"  + 
at  2  1 

write  "54  -  Numbering  69  -  Unsafe  Conditions  +‘ 

Causing"  at  4  1 

write  "55  -  Certificate  Termination"  at  5  1 

write  "56  -  Personal  Flotation  Device  70  -  Corrected  on  the  + 
spot"  at  6  1 

write  "57  -  Sound  Producing  Device  71  -  Overloaded"  at  7  1 

write  "58  -  Bell  72  -  Accumulation  of  fuel  + 

in  bilges"  at  8  1 

write  "59  -  Fire  Extinguisher  73  -  Fuel  Leak"  at  9  1 

write  "60  -  Flame  Control  74  -  Manifestly  Unsafe  + 

Voyage"  at  10  1 

write  "61  -  Ventilation  75  -  Hazardous  Bars  + 

(13th  District)"  at  11  1 

write  "62  -  Nav. /Anchor  Lights  76  -  Alcohol  Condition"  + 

at  12  1 

write  "63  -  Negligent  Operation  77  -  Other"  at  13  1 

write  "64  -  Failure  to  Terminate  78  -  Warning  Issued"  at  14  1 

write  "65  -  Pollution  Placard  Not  Posted  79  -  No  Violation"  at  15  1 

write  "66  -  Marine  Sanitation  Devices  80  Weapons  On  Board"  + 

at  16  1 

write  "67  -  Visual  Distress  Signals"  at  17 -1 
write  "68  -  Document/Official  Numbers"  at  18  1 
fillin  code  using  "Please  enter  code;  "  at  20  24 
endwhile 

set  error  messages  off 
remove  vslmo 


nevroage 

write  "Now  evaluating  vessel  profile . "  at  11  1 

*(this  next  section  of  code  finds  the  information  only 
dealing  with  the  specific  violation  code) 
if  code  =  54  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol54  exists 
endif 

if  code  =55  then 


***’’1, 


337 


project  vslmo  from  vlolsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  7sluse  vslyear  bono  where  viol55  exists 
endlf 

if  code  =  56  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol56  exists 
endif 

if  code  =  57  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol57  exists 
endif 

if  code  =  58  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  violSS  exists 
endif 

if  code  =  59  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol59  exists 
endif 

if  code  =  60  then 

project  vslmo  from  violsvim  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol60  exists 
endif 

if  code  =61  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol61  exists 
endif 

if  code  =  62  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol62  exists 
endif 

if  code  =  63  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol63  exists 
endif 

if  code  =  64  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol64  exists 
endif 

if  code  =  65  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol65  exists 
endif 

if  code  =  66  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol66  exists 
endif 

if  code  =  67  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol67  exists 
endif 

if  code  =  68  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol68  exists 
endif 

if  code  =  69  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns69  exists 
endif 

if  code  =  70  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns70  exists 
endif 

if  code  =  71  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns71  exists 
endif 

if  code  =  72  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns72  exists 
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endlf 

If  code  »  73  then 

project  vslmo  from  vlolsvim  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns73  exists 
endif 

if  code  =  74  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns74  exists 
endif 

if  code  =75  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns75  exists 
endif 

if  code  =76  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns/6  exists 
endif 

if  code  =  77  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns77  exists 
endif 

if  code  =  78  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns78  exists 
endif 

if  code  =  79  then 

project  vslmo  from  violsiim  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns79  exists 
endif 

if  code  =  80  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  weapons  exists 
endif 

compute  numrows  as  rows  from  vslmo 

remove  violsum 

remove  summaryl 

remove  summary2 

remove  summary3 

remove  summary4 

newpage 

remove  summaryS 
remove  summary6  • 
remove  summary? 
newpage 

if  numrows  fails  or  numrows  =  0  then 

write  "No  records  exist  that  match  your  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  15 
pause 
else 

*(Now  getting  violation  code  description) 
set  pointer  #1  nl  for  viols 
while  nl  eq  0  then 

set  var  vno  to  violno  in  #1 
if  code  =  .vno  then 

set  var  vltndesc  to  violdesc  in  #1 
break 
endif 

next  #1  nl 
endwhile 
nev 


wpage 

write  "Preparing  vessel  type  demographics 
define 
attributes 
counter  integer 
typedesc  text  15 
relation 

summaryl  with  vsltype  typedesc  counter 
end 

set  pointer  #1  nl  for  boattype 
while  nl  eq  0  then 
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get  var  typetest  to  vtype  In  #1 
set  var  typdescl  to  vtypedes  in  #1 
compute  sumtype  as  count  vsltype  from  vslmo  where  + 
vsltype  =  .tTOetest 
If  sumtype  falls  then 
set  var  sumtype  to  0 
endif 

load  summaryl 

.typetest  .typdescl  .sumtype 
end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  counter  from  summaryl 

output  printer  with  vtypemo.rpt 

newpage 

print  vtypemo 

output  screen 

remove  summaryl 

write  "Preparing  vessel  use  demographics . " 

define 
attributes 
numuse  integer 
usedesc  text  15 
relations 

summaryZ  with  vsluse  usedesc  numuse 
end 

set  pointer  #1  nl  for  boatuse 
while  nl  eq  0  then 

set  var  usetest  to  vuse  in  #1 
set  var  usedescl  to  vusedesc  in  #1 

compute  sumuse  as  count  vsluse  in  vslmo  where  vsluse  =  .usetest 
if  sumuse  fails  then 
set  var  sumuse  to  0 
endif 

load  summary2 

.usetest  .usedescl  .sumuse 
end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  numuse  from  summaryZ 

output  printer  with  vusemo.rpt 

newpage 

print  vusemo 

output  screen 

remove  summaryZ 

write  "Preparing  vessel  construction  type  demographics . " 

define 
attributes 
numconst  integer 
constdes  text  10 
relations 

summaryS  with  vslconst  constdes  numconst 
end 

set  pointer  #1  nl  for  constr 
while  nl  eq  0  then 

set  var  consttst  to  constype  in  #1 
set  var  constrds  to  consdesc  in  #1 
compute  sumconst  as  count  vslconst  in  vslmo  where  + 
vslconst  =  .consttst 
if  sumconst  fails  then 
set  var  sumconst  to  0 
endif 

load  summary3 

.consttst  .constrds  .sumconst 
end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  numconst  from  summaryS 

output  printer  with  vconstmo.rpt 

newpage 
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print  vconstmo 
output  screen 
remove  summaryS 

write  "Preparing  vesssl  engine  compartment  demographics... 

define 

attributes 

numeng  integer 

engdesc  text  10 

relations 

sununary4  with  vsleng  engdesc  numeng 
end 

set  pointer  #1  nl  for  engcomp 
while  nl  eg  0  then 

set  var  engtst  to  ecomptyp  in  #1 
set  var  engdescr  to  ecompdes  in  #1 

compute  sumeng  as  count  vsleng  in  vslmo  where  vsleng  = 
if  sumeng  fails  then 
set  var  sumeng  to  0 
endif 

load  summary4 

.engtst  .engdescr  .sumeng 
end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  numeng  from  summary4 

output  printer  with  vengmo.rpt 

newpage 

print  vengmo 

output  screen 

remove  summary4 

write  "Preparing  fuel  compartment  type  demographics . 

define 
attributes 
numfuel  integer 
fueldesc  text  10 
relations 

summaryS  with  vslfuel  fueldesc  numfuel 
end  • 

set  pointer  #1  nl  for  fuelcomp 
while  nl  eg  0  then 

set  var  fueltst  to  fcomptyp  in  #1 
set  var  fdesc  to  fcompdes  in  #1 

compute  sumfuel  as  count  vslfuel  in  vslmo  where  vslfuel 
if  sumfuel  fails  then 
set  var  sumfuel  to  0 
endif 

load  summaryS 

.fueltst  .fdesc  .sumfuel 
end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  numfuel  from  summaryS 

output  printer  with  vfuelmo.rpt 

ne^age 

print  vfuelmo 

output  screen 

remove  summaryS 

write  "Preparing  hull  material  demographics . 

define 
attributes 
numhull  integer 
hulldesc  text  IS 
relations 

summaryS  with  vslhull  hulldesc  numhull 
end 

set  pointer  #1  nl  for  hcllmat 
while  nl  eg  0  then 

set  varnulltst  to  hmattype  in  ,i. 
set  var  hdesc  to  hmatdesc  in  #1 

compute  sumhull  as  count  vslhull  in  vslmo  where  vslhull 


engtst 


M 


=  .fueltst 


li 


=  .hulltst 


If  sumhull  fails  then 
set  var  sumhull  to  0 
endif 

load  summaryG 

.hulltst  .hdesc  .sumhull 
end 

next  #1  nl  ' 
endwhile 

compute  totviols  as  sum  ;.umhull  from  summary6 

output  printer  with  vhullmo.rpt 

newpage 

print  vhullino 

output  screen 

remove  summary6 

write  "Preparing  vessel  propulsion  demographics . " 

define 
attributes 
numprop  integer 
descprop  text  15 
relations 

summary?  with  vslprop  descprop  numprop 
end 

set  pointer  #1  nl  for  boatprop 
while  nl  eq  0  then 

set  var  proptst  to  proptype  in  #1 
set  var  prdesc  to  propdesc  in  #1 

compute  sumorop  as  count  vslprop  in  vslmo  where  vslprop  =  .proptst 
if  sumprop  fails  then 
set  var  sumprop  to  0 
endif 

load  summary? 

.proptst  .prdesc  .sumprop 
end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  numprop  from  summary? 

output  printer  with  vpropmo.rpt 

nev^age 

print  vpropmo 

output  screen 

remove  summary? 

write  "Preparing  vessel  length  demographics... . " 

compute  totvsls  as  count  bono  from  vslmo  where  vsllenft  exists 
compute  len<20  as  count  bono  from  vslmo  where  vsllenft  <  20 
compute  len2030  as  count  bono  from  vslmo  where  vsllenft  >=  20  and  + 
vsllenft  <  30 

compute  l«n3040  as  count  bono  from  vslmo  where  vsllenft  >=  30  and  + 
vsllenft  <  40 

compute  len4050  as  count  bono  from  vslmo  where  vsllenft  >=  40  and  + 
vsllenft  <  50 

compute  len5060  as  count  bono  from  vslmo  where  vsllenft  >=  50  and  + 
vsllenft  <  60 

compute  len60?0  as  count  bono  from  vslmo  where  vsllenft  >=  60  and  + 
vsllenft  <  ?0 

comoute  len7080  as  count  bono  from  vslmo  where  vsllenft  >=  ?0  and'  + 
vsllenft  <  80 

compute  len8090  as  count  bono  from  vslmo  where  vsllenft  >=  80  and  + 
vsllenft  <  90 

compute  len90100  as  count  bono  from  vslmo  where  vsllenft  >=  90  and  + 
vsllenft  <  100 

compute  len>100  as  count  bono  from  vslmo  where  vsllenft  >=  100 
*(computing  total  number  of  violations) 
set  var  tvl  to  .len<20  +  .len2030 
set  var  tv2  to  .len3040  +  .len4050 
set  var  tv3  to  .len5060  +  .len60?0 
set  var  tv4  to  .len?080  +  .len8090 
set  var  tv5  to  .len>100  +  .len90100 
set  var  tvlO  to  .tvl  +  .tv2 
set  var  tv20  to  .tv3  +  .tv4 
set  var  tv30  to  .tv5  +  .tvlO 


set  var  totviols  to  .tv20  +  .tv30 
let  var  pct<20  real 
set  var  pct2030  real 
set  var  pct3040  real 
set  var  pct4050  real 
set  var  pct5060  real 
set  var  pct6070  real 
.  set  var  .pct7080  real 
set  var  pct8090  real 
set  var  pct90100  real 
set  var  pct>100  real 

(Evaluating  percentages  based  on  total  boardings) 
set  var  pct<20  to  .len<20  /  .totbrds 
set  var  pct2030  to  .len2030  /  .totbrds 

set  var  pct3040  to  .len3040  /  .totbrds 

set  var  pct4050  to  .len4050  /  .totbrds 

set  var  pct5060  to  .len5060  /  .totbrds 

set  var  pct6070  to  .len6070  /  .totbrds 

set  var  pct7080  to  .len7080  /  .totbrds 

set  var  pct8090  to  .len8090  /  .totbrds 

set  var  pct90100  to  .len90100  /  .totbrds 
set  var  pct>100  to  .len>100  /  .totbrds 
set  var  vpct<20  real 
set  var  vpct2030  real 
set  var  vpct3040  real 
set  var  vpct4050  real 
set  var  vpct5060  real 
set  var  vpct6070  real 
set  var  vpct7080  real 
set  var  vpct8090  real 
set  var  vpct9010  real 
set  var  vpct>100  real 

*(Evaluating  percentages  based  on  total  violations) 

set  var  vpct<20  to  .len<20  /  .totviols 

set  var  vpct2030  to  .len2030  /  .totviols 

set  var  vpct3040  to  .len3040  /  .totviols 

set  var  vpct4050  to  .len4050  /  .totviols 

set  var  vpctSOeo  to  .len5060  /  .totviols 

set  var  vpct6070  to  .len6070  /  .totviols 

set  var  vpct7080  to  .len7080  /  .totviols 

set  var  vpct8090  to  .len8090  /  .totviols 

set  var  vpct9010  to  .len90100  /  .totviols 

set  var  vpct>100  to  .len>100  /  .totviols 

set  var  pcttbrds  real 

set  var  pcttbrds  to  .totviols  (  .totbrds 

(Defining  temporary  table  for  printing) 
remove  temp 
define 
attributes 
tmp  text  2 
relations 
temp  with  tmp 
end 

set  var  tmp  to  XX 
load  temp 
•  tmp 
end 

output  printer  with  vlenftmo.rpt 
newpage 

print  vlenftmo 
output  screen 

write  "Preparing  vessel  year  demographics . " 

compute  yr<1960  as  count  bono  in  vslmo  where  vslyear  <  1960 
compute  yr<1965  as  count  bono  in  vslmo  where  vslyear  >=  1960  and  + 
vslyear  <  1965 

compute  yr<1970  as  count  bono  in  vslmo  where  vslyear  >=  1965  and  + 
vslyear  <  1970 

compute  yr<1975  as  count  bono  in  vslmo  where  vslyear  >=  1973  and  + 
vslyear  <  1975 

compute  yr<1980  as  count  bono  in  vslmo  where  vslyear  >=  1975  and  + 


vslyear  <  1980 

compute  yr<1985  as  count  bono  in  vslmo  where  vslyear  >=  1980  and  + 
vslyear  <  1985 

compute  yr<1990  as  count  bono  in  vslmo  where  vslyear  >«  1985  and  + 
vslyear  <  1990 

compute  yr<1995  as  count  bono  in  vslmo  where  vslyear  >=  1990  and  + 
vslyear  <  1995 

compute  yr<2000  as  count  bono  in  vslmo  where  vslyear  >=  1995  and  + 
vslyear  <  2000 

compute  yr>2000  as  count  bono  in  vslmo  where  vslyear  >=  2000 

set  var  vpct<60  real 

set  var  vpct<65  real 

set  var  vpct<70  real 

set  var  vpct<75  real 

set  var  vpct<ao  real 

set  var  vpct<85  real 

set  var  vpct<90  real 

set  var  vpct<95  real 

set  var  vpct<00  real 

set  var  vpct>00  real 

^(Evaluating  percentages  based  on  total  violations) 

set  var  vpct<b0  to  .yr<1960  /  .totviols 

set  var  vpct<65  to  .yr<1965  /  .totviols 

set  var  vpct<70  to  .yr<1970  /  .totviols 

set  var  vpct<75  to  ,yr<1975  /  .totviols 

set  var  vpct<ao  to  .yr<1980  /  .totviols 

set  var  vpct<85  to  .yr<1985  /  .totviols 

set  var  vpct<90  to  .yr<1990  /  .totviols 

set  var  vpct<95  to  .yr<1995  /  .totviols 

set  var  vpct<00  to  .yr<2000  /  .totviols 

set  var  vpct>00  to  .yr>2000  /  .totviols 

set  var  pct<60  real 

set  var  pct<65  real 

set  var  pct<70  real 

set  var  pct<75  real 

set  var  pct<80  real 

set  var  pct<85  real 

set  var  pct<90  real 

set  var  pct<95  real 

set  var  pct<00  real 

set  var  pct>00  real 

*(Evaluating  percentages  based  on  total  boardings) 

set  var  pct<60  to  .yr<1960  /  .totbrds 

set  var  pct<65  to  .yr<1965  /  .totbrds 

set  var  pct<70  to  .yr<1970  /  .totbrds 

set  var  pct<75  to  .yr<1975  /  .totbrds 

set  var  pct<80  to  .yr<1980  /  .totbrds 

set  var  pct<85  to  .yr<1985  /  .totbrds 

set  var  pct<90  to  .yr<1990  /  .totbrds 

set  var  pct<95  to  .yr<1995  /  .totbrds 

set  var  pct<00  to  .yr<2D00  /  .totbrds 

set  var  pct>00  to  .yr>2000  /  .totbrds 

output  printer  with  vyearmo.rpt 

ne^age 

print  vyearmo 

newpage 

output  screen 

remove  temp 

remove  vslmo 


remove  summaryl 
remove  summary2 
remove  summary3 
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return 
*(  end  ) 


APPENDIX  K 
BRDRPTS  SOURCE  CODE 


$COHMAND 

BRD^MAIN 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

BOARDING  REPORTS  MENU  and  APPLICATION  PROGRAMS 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*********************************************************************** ) 

set  error  messages  off 
set  escape  off 
set  messages  off 
clear  all  variables 
newpage 

set  var  pick6  integer 
choose  picks  from  brd_menu  in  brdrpts.apx 
if  picks  eq  0  then 
quit  to  restbrd.cmd 
endif 

if  picks  eq  1  then 

run  VIOLFREQ  in  brdrpts.apx 
quit  to  restbrd.cmd 
endif 

if  picks  eg  2  then 

run  BOARDING  in  brdrpts.apx 
quit  to  restbrd.cmd 
endif 

if  picks  eg  3  then 

run  CMERPT  in  brdrpts.apx 
quit  to  restbrd.cmd 
endif 

if  picks  eq  4  then 

run  BOMAJOR  in  brdrpts.apx 
•  quit  to  restbrd.cmd 
endif 

if  picks  eg^  5  then 

run  BOMINOR  in  brdrpts.apx 
quit  to  restbrd.cmd 
endif 

if  picks  eg  S  then 

run  SMBOATRP  in  brdrpts.apx 
quit  to  restbrd.cmd 
endif 

if  picks  eq  7  then 

run  DAYNIGHT  in  brdrpts.apx 
quit  to  restbrd.cmd 
endif 

if  picks  eq  8  then 
^|uit  to  restrpts.cmd 

quit  to  restbrd.cmd 
return 
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$menu 

brd_menu 

column  SARELTIS  —  BOARDING  REPORTS 

VIOLATION/UNSAFE  CONDITION  FREQUENCY 

BOARDINGS  SUMMARY  LISTING 

CME  DECALS:  ANALYSIS  OF  VESSELS  BOARDED 

LARGE  SCALE  AREA  BOARDING  LOCATION  ANALYSIS 

SMALL  SCALE  AND  COASTLINE  AREA  BOARDING  LOCATION  ANALYSIS 

SMALL  BOAT  OPERATIONS  AREA  BOARDING  LOCATION  ANALYSIS 

TIME  OF  DAY  BOARDING  CASE  ANALYSIS 

RETURN  TO  REPORTS  MENU 

*(  end  ) 


SCOMMAND 

VIOLFREQ 


Program: 
Author : 

Date  Written: 
Description: 


Tables  Used; 
Temp  Tables ; 
Reports  Used; 
Forms  Used: 


Violation  /  Unsafe  Condition  Frequency  Analysis 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 

of  boarding  violations  and  unsafe  conditions 

within  a  specified  time  period. 

boarding 

frqchart,  temp 

violfreq,  unsfreq 

none 


***********************************************************************  ^ 


at  6  1 


set  null  "  " 
set  error  messages  off 
set  escape  on 
set  messages  off 
newpage 

clear  all  variables  » 

write  "This  module  performs  a  statistical  analysis  of  boarding  "  at 
write  "violations-  and  unsafe  conditions  within  a  specified  "  at  3  1 
write  "time  period."  at  4  1 
set  var  strtdate  date 
set  var  enddate  date 
set  error  messages  on 
set  var  datediff  to  0 
while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY: 
fillin  strtdate  using  "  "  at  6  53 
write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  8  1 
fillin  enddate  using  "  "  at  8  53 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 

project  frqchart  from  boarding  using  bono  viol54  viol55  viol56  viol57 
viol58  viol59  viol60  viol61  violbZ  viol63  viol64  viol65  viol66  + 
viol67  viol68  uns69  uns70  uns71  uns72  uns73  uns74  uns75  uns76  + 
uns77  uns78  uns79  where  bodate  ge  .strtdate  and  bodate  le  .enddate 
compute  viol54s  as  count  vioi54  from  frqchart  where  viol54  exists 

compute  viol55s  as  count  viol55  from  frqchart  where  viol55  exists 

compute  viol56s  as  count  viol56  from  frqchart  where  viol56  exists 

compute  viol57s  as  count  viol57  from  frqchart  where  viol57  exists 

compute  viol58s  as  count  viol58  from  frqchart  where  viol58  exists 

compute  viol59s  as  count  viol59  from  frqchart  where  viol59  exists 

compute  violSOs  as  count  viol60  from  frqchart  where  viol60  exists 

compute  viol61s  as  count  viol61  from  frqchart  where  viol61  exists 

compute  viol62s  as  count  viol62  from  frqchart  where  viol62  exists 

compute  viol63s  as  count  viol63  from  frqchart  where  viol63  exists 

compute  viol64s  as  count  viol64  from  frqchart  where  viol64  exists 

compute  viol65s  as  count  viol65  from  frqchart  where  viol65  exists 
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compute  viol66s  as  count  vlol66  from  frqchart  where  viol66  exists 

compute  viol67s  as  count  vlol67  from  frqchart  where  viol67  exists 

compute  viol68s  as -count  viol68  from  frqchart  where  viol68  exists 

^(computing  total  violations) 
set  var  vtotl  to  .viol54s  +  .violSSs 
set  var  vtot2  to  .viol56s  +  .viol57s 
set  var  vtot3  to  .violSSs  +  .viol59s 
set  var  vtot4  to  .viol60s  +  .violSls 
set  var  vtotS  to  .viol62s  +  .viol63s 
set  var  vtot6  to  .viol64s  +  .viol6Ss 
set  var  vtot7  to  .viol66s  +  .viol67s 
set  var  vtotS  to  .vtotl  +  .viol68s 
set  var  vtot9  to  .vtot2  +  .vtot3 
set  var  vtotlO  to  .vtot4  +  .vtotS 
set  var  vtotll  to  .vtotS  +  .vtot7 
set  var  vtotl2  to  .vtota  +  .vtot9 
set  var  vtotl3  to  . vtotlO  +  .vtotll 
set  var  vtotal  to  .vtotl2  .vtotl3 

compute  uns69s  as  count  uns69  from  frqchart  where  uns69  exists 

compute  uns70s  as  count  uns70  from  frqchart  where  uns70  exists 

compute  uns71s  as  count  uns71  from  frqchart  where  uns71  exists 

compute  uns72s  as  count  uns72  from  frqchart  where  uns72  exists 

compute  uns73s  as  count  uns73  from  frqchart  where  uns73  exists 

compute  uns74s  as  count  uns74  from  frochart  where  uns74  exists 

compute  uns75s  as  count  uns75  from  frqchart  where  uns75  exists 

compute  uns76s  as  count  uns76  from  frqchart  where  uns76  exists 

compute  uns77s  as  count  uns77  from  frqchart  where  uns77  exists 

compute  uns78s  as  count  uns78  from  frqchart  where  uns78  exists 

compute  uns79s  as  count  uns79  from  frqchart  where  uns79  exists 

*■( computing  total  unsafe  conditions) 
set  var  unstotl  to  .uns69s  +  .uns70s 
set  var  unstot2  to  .uns71s  +  .uns72s 
set  var  unstot3  to  .uns73s  +  .uns74s 
set  var  unstot4  to  .uns75s  +  .uns76s 
set  var  unstotS  to  .uns77s  +  .unstotl 
set  var  unstote  to  .unstot2  +  .unstot3 
set  var  unstot7  to  .unstot4  +  .unstotS 
set  var  unstotal  to  .unstotS  +  .unstot7 

compute  totbrds  as  count  bono  from  frqchart  where  bono  exists 

set  var  viol54s  real 

set  var  violSSs  real 

set  var  violSSs  real 

set  var  violS7s  real 

set  var  violSSs  real 

set  var  viol59s  real 

set  var  violSOs  real 

set  var  violSls  real 

set  var  violSZs  real 

set  var  vioiS3s  real 

set  var  viol64s  real 

set  var  violSSs  real 

set  var  violSSs  real 

set  var  violS7s  real 

set  var  violSSs  real 

set  var  uns89s  real 

set  var  uns70s  real 

set  var  uns71s  real 

set  var  uns72s  real 

set  var  uns73s  real 

set  var  uns74s  real 

set  var  uns75s  real 

set  var  uns7Ss  real 

set  var  uns77s  real 

set  var  uns78s  real 

set  var  uns79s  real 

set  var  totbrds  real 

’^(computing  percentages  based  on  total  boardings) 
set  var  pct54tmp  to  .viol54s  /  .totbrds 
set  var  pct54' to  .pct54tmp  x  100.0 
set  var  pctSBtmp  to  .violBSs  /  .totbrds 


set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  yar 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 
set  var 


pctSS  to  .pctSStmp  X 
pct56tmp  to  .vlolB6s 
pct56  to  .pct56tmp  x 
pct57tmp  to  .viol57s 
pct57  to  .pct57tmp  x 
pctSStmp  to  .violSSs 
pctSS  to  .pctSStmp  X 
pctSStmp  to  .violSSs 
pctSS  to  .pctSStmp  X 
pctSOtmp  to  .violfaOs 
pctSO  to  .pctSOtmp  X 
pcteitmp  to  .violbls 
pctSl  to  .pctSltmp  X 
pct62tmp  to  .viol62s 
pct62  to  .pct62tmp  x 
pctSStmp  to  .violbSs 
pctSS  to  .pctSStmp  X 
pctS4tmp  to  .violb4s 
pctS4  to  .pct64tmp  x 
pctSStmp  to  .violbSs 
pctSS  to  .pctSStmp  X 
pctSStmp  to  .yiolbSs 
pctSS  to  .pctSStmp  X 
pctS7tmD  to  .violb7o 
DCtS7  to  .pct67tmp  x 
pctSStmp  to  .violSSs 
pctSS  to  .pctSStmo  X 
pctSStmp  to  .unsSSs  / 
pctSS  to  .pctSStmp  X 
pct70tmp  to  .uns7os  / 
pct70  to  .pct70tmp  x 
pct71tmp  to  .uns71s  / 
pct71  to  .pct71tmp  X 
pct72tmp  to  .uns72s  / 
pct72  to  .pct72tmD  x 
pct7Stmp  to  .uns7Ss  / 
pct7S  to  .pct7Stmp  X 
pct74tmp  to  .uns74s  / 
pct74  to  .pct74tmo  x 
pct7Stmp  to  .uns7bs  / 
pct7S  to  .pct75tmp  x 
pct7Stmp  to  .uns7bs  / 
pct76  to  .pct76tmp  x 
pct77tmp  to  .uns77s  / 
pct77  to  .pct77tmp  x 
pct7Stmp  to  .uns78s  / 
pct7S  to  .pct7Stmp  x 
pcT:7Stmp  to  .uns7Ss  / 
pct7S  to  .pct79tmp  x 
violS4s  integer 
violSSs  integer 
violSSs  integer 
violS7s  integer 
violSSs  integer 
violSSs  integer 
violSOs  integer 
vioiSls  integer 
violS2s  integer 
violSSs  integer 
violS4s  integer 
violSSs  integer 
violSSs  integer 
violS7s  integer 
violSSs  integer 
unsSSs  integer 
uns70s  integer 
uns71s  integer 
uns72s  integer 
uns73s  integer 
uns74s  integer 


100.0 

/  .totbrds 
100.0 

/  .totbrds 
100.0 

/  .totbrds 
100.0 

/  .totbrds 
100.0 

/  .totbrds 
100.0 

/  . totbrds 
100.0 

/  .totbrds 
100.0 

/  .totbrds 
100.0 

/  .totbrds 
100.0 

/  . totbrds 
100.0 

/  .totbrds 
100.0 

/  . totbrds 
100.0 

/  . totbrds 
100.0 
'  .totbrds 
100.0 
'  . totbrds 
100.0 
'  .totbrds 
100.0 
'  .totbrds 
100.0 
'.  .totbrds 
100.0 
'  .  totbrds 
100.0 
'  .totbrds 
100.0 
'  .totbrds 
100.0 
'  .totbrds 
100.0 
'  .totbrds 
100.0 
'  .totbrds 
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set  var  unsTSs  integer 
set  var  uns76s  integer 
set  var  uns77s  integer 
set  var  uns78s  integer 
set  var  uns79s  integer 
set  var  totbrds  integer 
remove  temp 

^(creating  temporary  table  for  printing  purposes) 


attributes 

pgcount  integer 

relations 

temp  with  pgcount 

end 

load  temp 

ii^ii 

end 

nevraage 

write  "Preparing  reports . 

output  printer  with  violfreq.rpt 
newpage 

print  violfreq 
newpage 

output  printer  with  unsfreq.rpt 

print  unsfreq 

newpage 

output  screen 

remove  frqchart 

remove  temp 

newpage 

clear  all  variables 


return 
*(  end  ) 


$C0MM21ND 

BOARDING 

Program:  Boarding  Summary  Listing  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description;  This  program  performs  a  listing  of  the 

BOARDING  table  during  a  specified  time 
period.  The  report  is  sorted  by  date 
before  being  printed. 

Tables  Used:  boarding 

Temp  Tables:  bosum 

Reports  Used:  boarding 

Forms  Used:  none 


set  null  "  " 

set  error  messages  off 

set  escaoe  on 

set  messages  off 

newpage 

clear  all  variables 

write  "This  program  will  dump  all  information  on  boardings  "  at  3  1 
write  "which  are  selected  based  on  boarding  date.  If  you  wish  to  + 
print"  at  4  1 

write  "out  the  entire  database  of  boardings,  please  enter  the  date  "  + 
at  5  1 

write  "[01/01/1900]  for  the  starting  date  and  todays  date  for  the  "  + 
at  6  1 

write  "ending  date . .  "  + 


I 
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at  7  1 

set  var  strtdate  date 
set  var  enddate  date  - 
set  var  datediff  to  0 
set  error  messages  on 
while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYYs"  at  9  1 
fillin  strtdate  using  "  "  at  9  53 

write  "Please  enter  ending  date  in  the  form  HM/DD/YYYY:"  at  11  1 
fillin  enddate  using  "  "  at  11  53 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  bosum 
newpage 

groject  bosum  from  boarding  using  all  sorted  by  bodate  where  + 
odate  >=  .strtdate  and  bodate  <=  .enddate 
compute  numrows  as  rows  from  bosum 

write  "Now  preparing  report . "  at  11  1 

if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  date  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  10 
pause 
else 

output  printer  with  boarding,  rpt 
nev^age 

print  boarding 
newpage 
output  screen 
endif 

remove  bosum 
newpage 

clear  all  variables 

return 

*(  end  ) 


$C0MMAND 

BOMAJOR 


Program: 

Author: 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used; 


Boarding  Major  Grid  Area  Frequency  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of  cases 

which  occur  in  areas  specified  by  coordinates 

found  in  the  MAJAREA  table  during  a  specified 

time  period. 

majarea,  boarding 

bosum,  positfrq 

bomajor 

none 


jit**********************************************************************) 

set  null  "  " 

set  error  messages  off 

set  escape  on 

set  messages  off 

newpage 

clear  all  variables 

write  "This  module  performs  a  statistical  analysis  of  boarding  "  + 
at  2  1 

write  "locations  as  defined  by  major  grid  areas  during  a  specified  "  + 
at  3  1 

write  "period.  These  major  grid  areas  may  be  changed  by  modifying"  + 
at  4  1 


write  "the  grid  positions  in  table  MAJAREA"  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYYs"  at  8  1 
fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY;"  at  10  1 
fillin  enddate  using  "  "  at  10  51 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  positfrq 
remove  bosum 
newpage 

set  var  northtst  real 
set  var  southtst  real 
set  var  westtst  real 
set  var  easttst  real 
set  var  gridcnt  integer 

project  positfrq  from  majarea  using  all  sorted  by  majgrid 
expand  positfrq  with  freqcnt  integer 
expand  positfrq  with  gridpct  real 
ne^age 

write  "This  program  will  take  several  minutes  to  process  the  report."  + 
at  10  1 

write  "Please  be  patient . "  at  11  1 

project  bosum  from  boarding  using  bono  obslat  obslong  where  + 

bodate  ge  .strtdate  and  bodate  le  .enddate 

compute  totbrds  as  count  bono  from  bosum 

set  var  gridpct  real 

set  var  temppct  real 

set  pointer  ffl  grid  for  positfrq 

while  grid  eq  0  then 

set  var  northtst  to  majnorth  in  #1 
set  var  southtst  to  maj south  in  #1 
set  var  easttst  to  majeast  in  #1 
set  var  westtst  to  ma^west  in  #1 

compute  gridcnt  as  count  bono  from  bosum  where  obslat  <  .northtst  + 
and  obslat  >=  .southtst  and  obslong  <  .westtst  and  + 
obslong  >=  .easttst 
change  freqcnt  to  .gridcnt  in  #1 
set  var  temppct  to.  .gridcnt  /  .totbrds 
if  temppct  fails  then 
set  var  temppct  to  0.0 
endif 

assign  gridpct  to  .temppct  x  100.0  in  #1 
next  #1  grid 
endwhile 


set  var  inarea  integer 
set  var  outarea  integer 
set  var  inpct  real 
set  var  outpct  real 

compute  inarea  as  sum  freqcnt  from  positfrq 
set  var  outarea  to  .totbrds  -  .inarea 
set  var  inpct  to  .inarea  /  .totbrds 
set  var  outpct  to  .outarea  /  .totbrds 
set  var  inpct  to  .inpct  x  100.0 
set  var  outpct  to  .outpct  x  100.0 
newpage 

write  "Processing  report  information  has  been  completed."  at  3  1 

write  "Now  preparing  report . "  at  4  1 

output  printer  with  bomajor.rpt 

newpage 

print  bomajor 

newpage 

output  terminal 
remove  positfrq 
remove  bosum 


newpage 

clear  all  variables 


return 


*(  end  ) 


$COMMAND 

BOMINOR 

Progranu  Boarding  Minor  Grid  Area  Frequency  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of 
cases  which  occur  in  a  specified  location 
defined  in  the  MINAREA  table  during  a 
specified  time  period. 

Tables  Used:  boarding,  minarea 

Temp  Tables:  bosum,  positfrq 

Reoorts  Used:  bominor 

Forms  Used:  none 


set  null  "  " 

set  error  messages  off 

set  escape  on  ' 

set  messages  off 

newpage 

clear  all  variables 

write  "This  module  performs  a  statistical  analysis  of  boarding  "  + 
at  2  1 

write  "locations  as  defined  by  minor  grid  areas  during  a  specified  "  + 
at  3  1 

write  "period.  These  minor  grid  areas  may  be  changed  by  modifying"  + 
at  4  1 

write  "the  grid  positions  in  table  MINAREA"  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datedifi'  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 
fillin  strtdate  using  "  "  at  8  51 

write’ "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 
fillin  enddate  using  "  "  at  10  51 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  positfrq 
remove  bosum 
newpage 

set  var  northtst  real 
set  var  southtst  real 
set  var  westtst  real 
set  var  easttst  real 
set  var  gridcnt  integer 

project  positfrq  from  minarea  using  all  sorted  by  mingrid 
expand  positfrq  with  freqcnt  integer 
expand  positfrq  with  gridpct  real 
newpage 

write  "This  program  will  take  several  minutes  to  process  the  report."  + 
at  10  1 

write  "Please  be  patient . "  at  11  1 

project  bosum  from  boarding  using  bono  obslat  obslong  where  + 
bodate  ge  .strtdate  and  bodate  le  .enddate 
compute  totbrds  as  count  bono  from  bosum 


set  var  gridpct  real 
set  var  tempbct  real 
set  pointer  #1  grid  for  posltfrq 
while  grid  eg  0  then 

set  var  northtst  to  minnorth  In  #1 
set  var  southtst  to  minsouth  in  #1 
set  var  easttst  to  mineast  in  #1 
set  var  westtst  to  minwest  in  #1 

compute  gridcnt  as  count  bono  from  bosum  where  obslat  <  .northtst  + 
and  obslat  >=  .southtst  and  obslong  <  .westtst  and  + 
obslong  >=  .easttst 
change  f regent  to  .gridcnt  in  #1 
set  var  temppet  to  .gridcnt  /  .totbrds 
if  temppet  fails  then 
set  var  temppet  to  0.0 
endif 

assign  gridpct  to  .temppet  x  100.0  in  #1 
next  #1  grid 
endwhile 

set  var  inarea  integer 
set  var  outarea  integer 

set  var  inpet  real  » 

set  var  outpet  real 

compute  inarea  as  sum  fregent  from  pobitfrq 
set  var  outarea  to  .totbrds  -  .inarea 
set  var  inpet  to  .inarea  /  .totbrds 
set  var  outpet  to  .outarea  /  .totbrds 
set  var  inpet  to  .inpet  x  100.0 
set  var  outpet  to  .outpet  x  100.0 
newpage 

write  "Processing  report  information  has  been  completed. "  at  3  1 

write  "Now  preparing  report . "  at  4  1 

output  printer  with  bominor 

newpage 

print  bominor 

newpage 

output  terminal 
remove  positfrq 
remove  bosum 
newpage 

clear  all  variables 

return 

*(  end  ) 


$C0MMAND 

SMBOATRP- 


Program; 

Author: 

Date  Written; 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used; 
Forms  Used: 


Boarding  Small  Boat  Area  Frequency  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of  cases 

which  occur  in  the  small  boat  operating  as 

defined  by  Coast  Guard  Group  Monterey's 

OPLAN  during  a  specified  time  period. 

boarding 

temp,  bosum 

smboatrp 

none 


set  error  messages  off 
set  escape  on 
set  messages  off 
newpage 


m 


i 


i 
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clear  all  variables 
remove  temp 
remove  bosum 
newpage 

write  "This  module  performs  a  statistical  analysis  of  boarding  "  + 
at  2  1 

write  "locations.  This  program  examines  the  number  of  boardings  "  + 
at  3  1 

write  "inside  and  outside  of  the  small  boat  operational  area  during  "  + 
at  4  1 

write  "a  specified  time  period.  "  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY;"  at  8  1 
fillin  strtdate  using  "  "  at  3  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 
fillin  enddate  using  "  "  at  10  51 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
newpage 

write  "This  program  will  take  several  minutes  to  process  the  report."  + 
at  10  1 

write  "Please  be  patient . "  at  11  1 

project  bosum  from  boarding  using  bono  obslat  obslong  where  + 
bodate  >=  .strtdate  and  bodate  <=  .enddate 
compute  totbrds  as  count  bono  from  bosum 
set  var  inside  to  0 
set  var  outside  to  0 
set  pointer  #1  nl  for  bosum 
while  nl  eq  0  then 
while  nl  eq  0  then 
set  var  obslat  to  obslat  in  #1 
set  var  obslong  to  obslong  in  #1 
if  obslat  <  36.100  then 

set  var  outside  to  .outside  +  1 
break 
endif 

if  obslong  <  121.40  then 

set  var  outside  to  .outside  +  1 
break 
endif 

if  obslat  >=  36.100  and  obslat  <=  36.180  and  obslong  >=  121.400  + 
and  obslong  <=  122.200  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  obslat  >=  36.180  and  obslat  <=  36.370  and  obslong  >=  121.400  + 
and  obslong  <=  122.250  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  obslat  >=  36.370  and  obslat  <=  36.480  and  obslong  >=  121. 'lOO  + 
and  obslong  <=  122.300  then 

set  var  inside  to  .inside  1 
break 
endif 

ii!  obslat  >=  36.480  and  obslat  <=  36.530  and  obslong  >=  121.400  + 
and  obslong  <=  122.350  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  obslat  >=  36.530  and  obilat  <=  36.570  and  obslong  >=  121.400  + 
and  obslong  <=  122.400  then 

set  var  inside  to  .inside  +  1 
break 
endif 
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If  obslat  >3  36.570  and  obslat  <»  37.000  and  obslong  >=  121.400  + 
and  obslong  <=  122.450  then 

set  var  Inside  to  .inside  +  1 
break 
endif 

if  obslat  >=  37.000  and  obslat  <=  37.050  and  obslong  >=  121.400  + 
and  obslong  <=  122.450  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  obslat  >=  37.050  and  obslat  <=  37.100  and  obslong  >=  121.400  + 
and  obslong  <=  122.300  then 

set  var  inside  to  .inside  +  1 
break 
endif 

set  var  outside  to  .outside  +  1 
break 
endwhile 
next  #1  nl 
endwhile 
ne^age 
define 
attributes 
tmp  text  2 
relations 
temp  with  tmp 
end 

load  temp 
"KX" 

end 

write  "Processing  report  information  has  been  completed."  at  3  1 

write.  "Now  preparing  report . "  at  4  1 

output  printer  with  smboatrp.rpt 
ne^age 

print  smboatrp 
newpage 

output  terminal 
remove  temp 
remove  bosum 
newpage 

clear  all  variables 

return 

*(  end  ) 


$C0MMAND 

CMERPT 

*^  ********************************************************************** 


Programs 

Author; 

Date  Written; 
Descriptions 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Courtesy  Motorboat  Examinations  (CME's) 
Statistical  Analysis 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 

of  vessels  that  were  boarded  to  determine 

the  frequency  of  CME's  and  their  year  of 

issue  during  a  specified  time  period. 

boarding,  vessel 

bosum,  vslsum,  bovslsum,  temp 

cmerpt 

none 


***********************************************************************  ^ 

set  error  messages  off 
set  escape  on 
set  messages  off 
newpage 
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clear  all  variables 

write  "This  program  will  perform  statistical  reports  on"  at  3  1 
write  "vessels  that  were  boarded  during  a  specified  time  with"  at  4  1 
write  "USCG  Auxiliary  Courtesy  Motorboat  Examinations  CMEs  Decals"  + 
at  5  1 

set  var  strtdate  date 
set  var  enddate  date 
set  var  datediff  to  0 
set  error  messages  on 
while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY;"  at  8  1 
fillin  strtdate  using  "  "  at  8  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 
fillin  enddate  using  "  "  at  10  53 

-  .enddate  -  .strtdate 


=  Y  + 


=  Y  + 


=  Y  + 


Y  + 


Y  + 


set  var  datediff  to 
endwhile 

set  error  messages  off 
remove  bosum 
remove  vslsum 
remove  bovslsum 
newpage 

project  bosum  from  boarding  using  bono  bovhin  where  + 
bodate  ge  .sttcdate  and  booate  le  .enddate 
project  vslsum  from  vessel  using  cmedecal  cmeyear  vslhin 
join  bosum  using  bovhin  with  vslsum  using  vslhin  forming  bovslsum  + 
where  eg 

compute  totbrds  as  count  bono  from  bovslsum 

compute  cmecount  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y 
if  cmecount  >=  1  and  totbrds  >=  1  then 

compute  before70  as  count  cmedecal  from  bovslsum  where  cmedecal 
and  cmeyear  <=  1970 

compute  yr71to75  as  count  cmedecal  from  bovslsum  where  cmedecal 
and  cmeyear  >=  1971  and  cmeyear  <=  1975 

compute  yr76to79  as  count  cmedecal  from  bovslsum  where  cmedecal 
and  cmeyear  >=  1976  and  cmeyear  <=  1979 

compute  yrSOtoSl  as  count  cmedecal  from  bovslsum  where  cmedecal  = 
and  cmeyear  >=  1980  and  cmeyear  <=  191 

compute  yr82to83  as  count  cmedecal  from  bovslsum  where  cmedecal  = 
and  cmeyear  >=  1982  and  cmeyear  <=  1983 
compute  yr84to85  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y 
and  cmeyear  >=  1984  and  cmeyear  <=  1985 

compute  yr86to87  as  count  cmedecal  from  bovslsum  where  cmedecal  =  7 
and  cmeyear  >=  1986  and  cmeyear  <=  1987 

compute  yr88to89  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y 
and  cmeyear  >=  1988  and  cmeyear  <=  1989 

compute  after90  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y  + 
and  cmeyear  >=  1990 
set  var  pctlt70  real 
set  var  pct7175  real 
set  var  pct7679  real 
set  var  pct8081  real 
set  var  pct8283  real 
set  var  pct8485  real 
set  var  pct8687  real 
set  var  pct8889  real 
set  var  pctgt90  real 
if  totbrds  rails  or  totbrds  =  0  then 
set  var  totbrds  to  1 
endif 

set  var  pctlt70  to  .before70  /  .totbrds 
set  var  pct7175  to  .yr71to75  /  .totbrds 
set  var  pct7679  to  .yr76to79  /  .totbrds 
set  var  pct8081  to  .yr80to81  /  .totbrds 

.totbrds 
. totbrds 


set  var  pct8283  to  .yr82to83  / 
set  var  pct8485  to  .yr84to85  / 
set  var  pct8687  to  .yr86to87  /  .totbrds 
set  var  pct8889  to  .yr88to89  /  .totbrds 
set  var  pctgt90  to  .after90  /  . 
set  var  vpct70  real 
set  var  vpct71  real 


.  totbrds 
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set  var  vpct76  real 
set  var  vpctSO  real 
set  var  vpct82  real 
set  var  vpct84  real 
set  var  vpct86  real 
set  var  vpct88  real 
set  var  vpct90  real 

if  cmecount  =s  o  or  cmecount  fails  then 
set  var  cmecount  to  1 
endif 

set  var  vpct70  to  .before70  /  .cmecount 

"  .  .yr71to75  /  .cmecount 

.yr76to79  /  .cmecount 

.yr80to81  /  .cmecount 

.yr82to83  /  .cmecount 

.yr84to85  /  .cmecount 

.yr86to87  /  .cmecount 

.yr88to89  /  .cmecount 

.after90  /  .cmecount 


set  var  vpct71  to 
set  var  vpct76  to 
set  var  vpct80  to 
set  var  vpct82  to 
set  var  vpct84  to 
set  var  vpct86  to 
set  var  vpct88  to 
set  var  vpct90  to 


set  var  pctcme  real 
set  var  pctcme  to  .cmecount  /  .totbrds 
remove  temp 
newpage 

write  "Processing  of  statistical  information  completed."  at  10  1 

write  "Now  preparing  report . "  at  11  1 

*( creating  temporary  relation  for  printing  purposes) 
define 
attributes 
tmp  text  2 
relations 
temp  with  tmp 
end 

load  temp 
"XX" 
end 

output  printer  with  cmerpt.rpt 
newpage 
print  cmerpt 
newpage 
output  screen 
else 

newpage 

write  "No  records  match  your  selection  criteria"  at  10  15 
write  "Please  press  any  key  to  continue"  at  15  20 
pause 
newpage 
endif 

remove  bosum 
remove  vslsum 
remove  bovslsum 
remove  temp 
clear  all'  variables 
return 
*(  end  ) 


$C0MMAND 

DAYNIGHT 


Program; 
Author : 

Date  Written: 
Description: 


Tables  Used: 


Daytime  vs.  Nighttime  Frequency  Analysis 
J  u  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 
of  SAR  cases  and  Boardings  to  determine 
percentage  of  cases  which  occur  in  the 
daytime  vs  those  that  occur  at  night  during 
a  specified  time  period, 
sar,  boarding 
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Temp  Tables > 
Reports  Usedi 
Forms  Used: 


sarsum,  bosum,  temp 

daynight 

none 


A*********:^************************************************************  J 

set  null  "  " 

set  error  messages  off 

set  escape  on 

set  messages  off 

clear  all  variables 

remove  sarsum 

nevraage 

write  "This  program  performs  a  statistical  analysis  of  Search  &"  at  2  1 
write  "Rescue  cases  and  Boardings  to  determine  the  percentage  of  "  + 
at  3  1 

write  "cases  which  occurred  during  the  day  and  at  night  during  a  "  + 
at  4  1 

write  "specified  time  period.  "  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 
fillin  strtdate  using  "  "  at  3  51 

write  "Please  enter  ending  date  in  the  form  HM/DD/YYYY : "  at  10  1 
fillin  enddate  using  "  "  at  10  51 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 

project  sarsum  from  sar  using  ssunrise  ssunset  sartime  sardate  where  + 
sardate  >=  .strtdate  and  sardate  <=  .enddate  and  ssunrise  exists  and  + 
sartime  exists 

compute  daysar  as  count  sartime  from  sarsum  where  sartime  gea  + 
ssunrise  and  sartime  Ita  ssunset 

compute  nitesar  as  count  sartime  from  sarsum  where  sartime  Ita  + 

ssunrise  or  sartime  gea  ssunset 

set  var  totsars  to  .daysar  +  .nitesar 

set  var  pctdays  real 

set  var  pctnites  real 

set  var  pctdays  to  .daysar  /  .totsars 

set  var  pctnites  to  .nitesar  /  .totsars 

set  var  pctdays  to  .pctdays  x  100.0 

set  var  pctnites  to  .pctnites  x  100.0 

remove  sarsum 

remove  bosum 

newpage 

project  bosum  from  boarding  using  bsunset  bsunrise  botime  bodate  where  + 
bodate  >=  .strtdate  and  bodate  <=  .enddate  and  bsunrise  exists  and  + 
botime  exists 

compute  daybrd  as  count  botime  from  bosum  where  botime  gea  bsunrise'‘+ 
and  botime  Ita  bsunset 

compute  nitebrd  as-  count  botime  from  bosum  where  botime  Ita  bsunrise  + 

or  botime  gea  bsunset 

set  var  totbrds  to'  .daybrd  +  .nitebrd 

set  var  nctdayb  real 

set  var  pctniteb  real 

set  var  pctdayb  to  .daybrd  /  .totbrds 

set  var  pctniteb  to  .nitebrd  /  .totbrds 

set  var  pctdayb  to  .pctdayb  x  100.0 

set  var  pctniteb  to  .pctniteb  x  100.0 

remove  bosum 

remove  temp 

nevroage 

define 

attributes 

tmp  text  2 

relations 
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end 

nevpage 

write  "Preparing  report . " 

output  printer  with  daynight.rpt 
newpage 

print  daynight 
newpage 
output  screen 
remove  sarsum 
remove  bosum 


remove  temp 

newpage 

return 


*(  end  ) 
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APPENDIX  L 
SARRPTS  SOURCE  CODE 


$C0MMAND 
SAR  MAIN 


******************************************************************** 


US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

SAR  REPORTS  MENU  and  APPLICATION  PROGRAMS 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


***********************************************************************) 

set  error  messages  off 
set  messages  off 
set  escape  off 
clear  all  variables 
newpage 

set  var  pick?  integer 

choose  pick?  from  sarjnenu  in  sarrpts.apx 
if  pick?  eq  0  then 
quit  to  restsar.cmd 
endif 

if  pick?  eq  1  then 

run  IMMbDSAR  in  sarrpts.apx 
quit  to  restsar.cmd 
endif 

if  pick?  eq  2  then 

run  SARMinor  in  sarrpts.apx 
quit  to  restsar.cmd 
endif 

if  pick?  eq  3  then 

run  SARnAJOR  in  sarrpts.apx 
quit  to  restsar.cmd 
endif 

if  pick?  eg  4  then 

run  SARSMBT  in  sarrpts.apx 
quit  to  restsar.cmd 
endif 

if  pick?  eg  5  then 

run  SARDUMP  in  sarrpts.apx 
quit  to  restsar.cmd 
endif 

if  pick?  eg  6  then 

run  SARTIMES  in  sarrpts.apx 
quit  to  restsar.cmd 
endif 

if  pick?  eq  ?  then 

run  SARDAY  in  sarrpts.apx 
quit  to  restsar.cmd 
endif 

if  pick?  eq  8  then 

run  DAYNIGHT  in  sarrpts.apx 
quit  to  restsar.cmd 
endif 

if  pick?  eq  9  then 
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^|ult  to  restrpts.cmd 

quit  to  restsar.cmd 

return 

$menu 

sarjnenu 

column  SARELTIS  —  SAR  REPORTS 

ANALYSIS  OF  IMMEDIATE  DISTRESS  SAR  CASES 

MINOR  AREA  (MINAREA  table)  LOCATION  ANALYSIS 

MAJOR  AREA  (MAJAREA  table)  LOCATION  ANALYSIS 

INSIDE/OUTSIDE  SMALL  BOAT  OPAREA  LOCATION  ANALYSIS 

SAR  TABLE  SUMMARY  LISTING 

SAR  UNIT  TIME  EXPENDED  DURING  SAR  CASES 

DAY  OF  THE  WEEK,  MONTH,  AND  YEAR  ANALYSIS 

SAR  CASE  ANALYSIS:  DA^IME/NIGHTTIME  FREQUENCY 

RETURN  TO  REPORTS  MENU 

*(  end  ) 


$COMMAND 

SARMAJOR 


Proqram: 
Author : 

Date  Written; 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


SAR  Manor  Grid  Area  Frequency  Analysis 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  perform",  a  statistical  analysis 

of  SAR  cases  to  deteii-dne  percentage  of 

cases  which  occur  in  specified  locations  in 

the  table  MAJAREA  during  a  specified  time 

period. 

majarea,  sar 

sarsum,  positfrq 

sarmajor 

none 


set  null  "  " 
set  error  messages  off 
set  messages  off 
set  escape  on 
newpage 

clear  all  variables 

write  "This  module  performs  a  statistical  analysis  of  SAR  case  "  at  2  1 
write  "locations  as  defined  by  major  grid  areas  during  a  specified  "  + 
at  3  1 

write  "period.  These  major  grid  areas  may  be  changed  by  modifying"  + 
at  4  1 

write  "the  grid  positions  in  table  MAJAREA"  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 
fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY;"  at  10  1 
fillin  enddate  using  "  "  at  10  51 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  positfrq 
remove  sarsum 
newpage 

set  var  northtst  real 
set  var  southtst  real 
set  var  westtst  real 
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let  var  easttst  real 
set  var  grldcnt  Integer 

project  posltfrq  from  majarea  using  all  sorted  by  majgrld 
expand  positfrq  with  freqcnt  integer 
expand  posltfrq  with  gridpct  real 
newpage 

write  "This  program  will  take  several  minutes  to  process  the  report."  + 
at  10  1 

write  "Please  be  patient . "  at  11  1 

•  project  sarsum  from  sar  using  folderno  sarlat  sarlong  where  + 

sardate  ge  .strtdate  and  sardate  le  .enddate 
compute  totsars  as  count  folderno  from  sarsum 
compute  numrows  as  rows  from  sarsum 
set  var  gridpct  real 
set  var  temppct  real 
set  pointer  ffl  grid  for  positfrq 
while  grid  eq  0  then 

set  var  northtst  to  majnorth  in  #1 
set  var  southtst  to  ma] south  in  #1 
set  var  easttst  to  majeast  in  #1 
set  var  westtst  to  ma]west  in  #1 

compute  gridcnt  as  count  folderno  from  sarsum  where  + 
sarlat  <  .northtst  and  sarlat  >=  .southtst  and  sarlong  <  .westtst  + 
and  sarlong  >=  .easttst 
change  freqcnt  to  .gridcnt  in  #1 
set  var  temppct  to  .gridcnt  /  .totsars 
if  temppct  fails  then 
set  var  temppct  to  0.0 
endif 

assign  gridpct  to  .temppct  x  100.0  in  #1 
next  #1  grid 
endwhile 

set  var  inarea  integer 
.  set  var  outarea  integer 

set  var  inpct  real 
set  var  outpct  real 

compute  inarea  as  sum  freqcnt  from  positfrq 
'  set  var  outarea  to  .totsars  -  .inarea 

set  var  inpcf  to  .inarea  /  .totsars 
set  var  outpct  to  .outarea  /  .totsars 
set  var  inpct  to  .inpct  x  100.0 
set  var  outpct  to  .outpct  x  100.0 
newpage 

write  "Processing  report  information  has  been  completed."  at  3  1 

write  "Now  preparing  report . "  at  4  1 

if  numrows  fails  or  numrows  =  0  then 
newpage 

write  "No  records  exist  in  the  database  matching  your  selection  + 
criteria"  at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 
pause 
else 

output  printer  with  sarmajor.rpt 
newpage 

print  sarmajor 
newpage 

output  terminal 
endif 

remove  positfrq 

i  remove  sarsum 

newpage 

clear  all  variables 

return 

*(  end  ) 


$C0MMAND 

SARMINOR 

*(********************************************************************** 
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Program] 
Author  t 
Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


SAR  Minor  Grid  Area  Frequency  Analysis 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  percentage  of 

cases  which  occur  in  locations  specified  by 

coordinates  contained  in  the  table  MINAREA 

during  a  specified  time  period. 

sar,  minarea 

sarsum,  positfrq 

sarminor 

none 


***********************************************************************) 

set  null  "  " 
set  error  messages  off 
set  messages  oft 
set  escape  on 
newpaae 

clear*all  variables 

write  "This  module  performs  a  statistical  analysis  of  SAR  case  "  at  2  1 
write  "locations  as  defined  by  minor  grid  areas  during  a  specified  "  + 
at  3  1 

write  "period.  These  major  grid  areas  may  be  changed  by  modifying"  + 
at  4  1 

write  "the  grid  positions  in  table  MINAREA"  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 
filiin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 
filiin  enddate  using  "  "  at  10  51 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  positfrq 
remove  sarsum 
newpage 

set  var  northtst  real 
set  var  southtst  real 
set  var  westtst  real 
set  var  easttst  real 
set  var  gridcnt  integer 

project  positfrq  from  minarea  using  all  sorted  by  mingrid 
expand  positfrq  with  freqcnt  integer 
expand  positfrq  with  gridpct  real 
newpage 

write  "This  program  will  take  several  minutes  to  process  the  report."  + 
at  10  1 

write  "Please  be  patient . "  at  11  1 

project  sarsum  from  sar  using  folderno  sarlat  sarlong  where  + 

sardate  ge  .strtdate  and  sardate  le  .enddate 

compute  totsars  as  count  folderno  from  sarsum 

compute  numrows  as  rows  from  sarsum 

set  var  gridpct  real 

sat  var  temppct  real 

set  pointer  #1  grid  for  positfrq 

while  grid  eq  0  then 

set  var  northtst  to  minnorth  in  #1 
set  var  southtst  to  minsouth  in  #1 
set  var  easttst  to  mineast  in  #1 
set  var  westtst  to  minwest  in  #1 

compute  gridcnt  as  count  folderno  from  sarsum  where  + 

sarlat  <  .northtst  and  sarlat  >=  .southtst  and  sarlong  <  .westtst  + 


and  sarlong  >■  .easttst 
change  freqcnt  to  .gridcnt  In  #1 
set  var  temppct  to  .gridcnt  /  .totsars 
If  temppct  falls  then 
set  var  temppct  to  0.0 
endlf 

assign  gridpct  to  .temppct  x  100.0  in  #1 
next  #1  grid 
endwhile 

set  var  inarea  integer 
set  var  outarea  integer 
set  var  inpct  real 
set  var  outpct  real 

compute  inarea  as  sum  freqcnt  from  positfrq 
set  var  outarea  to  .totsars  -  .inarea 
set  var  inpct  to  .inarea  /  .totsars 
set  var  outpct  to  .outarea  /  .totsars 
set  var  inpct  to  .inpct  x  100. 0 
set  var  outpct  to  .outpct  x  100.0 
newpage 

write  "Processing  report  information  has  been  completed."  at  3  1 

write  "Now  preparing  report. . "  at  4  1 

if  numrows  fails  or  numrows  =  0  then 
newpage 

write  "No  records  exist  in  the  database  matching  your  selection  + 
criteria"  at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 
'  pause 
else 

output  printer  with  sarminor.rpt 
newpage 

print  sarminor 
newpage 

output  terminal 
endif 

remove  positfrq 
remove  sarsum 
newpage 

clear  all  variables 
return 
end  ) 


$C0MHAND 

SARSHBT 

**;k****)*(****5lc*************yf  A******************  ******  A:^**************** 


Program; 

Author: 

Date  Written; 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


SAR  Case  Small  Boat  Area  Frequency  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 
of  SAR  Cases  to  determine  percentage  of 
cases  which  occur  in  the  small  boat  operating 
as  defined  by  Coast  Guard  Group  Monterey's 
OPLAN  during  a  specified  time  period, 
sar 

temp,  sarsum 

sarsmbt 

none 


***********************************************************************> 


set  null  "  " 
set  error  messages  off 
set  messages  off 
set  escape  on 
newpage 

clear  all  variables 


T  ain'nn  ivi  " 


remove  temp 
remove  sarsum 
newpage 

write  "This  module  performs  a  statistical  analysis  of  SAR  Case  "  at  2  1 
write  "locations.  This  program  examines  the  number  of  SAR  Cases  "  + 
at  3  1 

write  "Inside  and  outside  of  the  small  boat  operational  area  during  "  + 
at  4  1 

write  "a  specified  time  period.  "  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 
fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 
fillin  enddate  using  "  "  at  10  51 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
newpage 

write  "This  program  will  take  several  minutes  to  process  the  report."  + 
at  10  1 

write  "Ple);e  be  patient . "  at  11  1 

project  sarsum  from  sar  using  folderno  sarlat  sarlong  where  + 
sardate  >=.. strtdate  and  sardate  <=  .enddate 
compute  totsars  as  count  folderno  from  sarsum 
compute  numrows  as  rows  from  sarsum 
set  var  inside  to  0 
set  var  outside  to  0 
set  pointer  #1  nl  for  sarsum 
while  nl  eg  0  then 
while  nl  eg  0  then 
set  var  sarlat  to  sarlat  in  #1 
set  var  sarlong  to  sarlong  in  #1 
if  sarlat  <  36.100  then 

set  var  outside  to  .outside  +  1 
break 
endif 

if  sarlong  <  121.40  then 

set  var  outside  to  .outside  1 
break 
endif 

if  sarlat  >=  36.100  and  sarlat  <=  36.180  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.200  then 
set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  36.180  and  sarlat  <=  36.370  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.250  then 
set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  36.370  and  sarlat  <=  36.480  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.300  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  36.480  and  sarlat' <=  36.530  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.350  then 
set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  36.530  and  sarlat  <=  36.570  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.400  then 
set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  36.570  and  sarlat  <=  37.000  and  sarlong  >=  121.400  + 
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and  sarlong  <>  122.450  then 
set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  37.000  and  sarlat  <=  37.050  and  sarlong  >=  121.400  + 
and  sarlong  <»  122.450  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  37.050  and  sarlat  <=  37.100  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.300  then 

set  var  inside  to  .inside  +  1 
break 
endif 

set  var  outside  to  .outside  +  1 
break 
endwhile 
next  #1  nl 
endwhile 

set  var  inpcttmp  real 

set  var  outpcttm  real 

set  var  inpct  real 

set  var  outpct  real 

set  var  totsars  real 

set  var  inside  real 

set  var  outside  real 

set  var  inpcttmp  to  .inside  /  .totsars 

set  var  outpcttm  to  .outside  /  .totsars 

set  var  inpct  to  .inpcttmp  x  100.0 

set  var  outpct  to  .outpcttm  x  100.0 

set  var  totsars  integer 

set  var  inside  integer 

set  var  outside  integer 

ne^^age 

define 

attributes 

tmp  text  2 

relations 

temp  with  tmp 

end 

load  temp 
"XX" 
end 

write  "Processing  report  information  has  been  completed."  at  3  1 

write  "Now  preparing  report... . "  at  4  1 

if  numrows  fails  or  numrows  =  0  then 
newpage 

write  "No  records  exist  in  the  database  matching  your  selection  + 
criteria"  at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 
pause 
else 

output  printer  with  sarsmbt.rpt 

nev^age 

print  sarsmbt 

newpage 

output  terminal 
endif 

remove  temp 
remove  sarsum 
newpage 

clear  all  variables 

return 

*(  end  ) 


$ COMMAND 
SARTIMES 


Program: 
Author : 

Date  Written: 
Description; 


Tables  Used: 
Temp  Tables: 

Reports  Used: 
Forms  Used: 


SAR  Case  Units  Time  Expended  Frequency 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 
of  SAR  cases  to  determine  total  time 
expended,  time  to  being  on  scene,  time  to 
being  alongside,  time  involved  in  searches, 
and  time  involved  in  towing.  These  times  are 
analyzed  to  produce  totals,  averages, 
minimums,  and  maximums  for  a  specific  time 
period, 
sarunits 

sartimel,  sartime2,  sartimeS,  sartime4, 

sartimeS,  temp 

sartimes 

none 


****A;fc*;fc;^**yc:k**yt*************yc***yr;********;**********yt****yt****:<t;fe*:*t*****  ^ 

set  null  "  " 
set  error  messages  off 
set  messages  ofz 
set  escape  on 
newpage 

clear  all  variables 

write  "This  program  will  perform  statistical  reports  on"  at  3  1 
write  "SAR  cases  that  occurred  during  a  specified  time  period."  at  4  1 
write  "Total  sar  unit  time  expended,  time  to  on  scene,  time  "  at  5  1 
write  "to  alongside  distressed  vessel,  time  expended  in  searches,"  + 
at  6  1 

write  "and  time  engaged  in  towing  will  be  analyzed."  at  7  1 

write  "Since  this  program  can  take  5  to  10  minutes  to  run,  you  may"  + 

at  12  1 

write  "press  the  escape  [ESC]  key  to  exit  to  the  RBase  5000  command"  + 
at  13  1 

write  "prompt  where  can  either  restart  the  menu  system  by  typing:"  + 
at  14  1  . 

write  "  RUN  STARTUP.BIN"  at  16  1 

write  "or  exitting  the  system  by  typing:"  at  18  1 

write  "  EXITi^  at  20  1 

write  "Press  any  kev  to  continue  "  at  23  10 

pause 

newpage 

set  var  strtdate  date 
set  var  enddate  date 
set  var  datediff  to  0 
set  error  messages  on 
while  datediff  <=  0  then 

write  "Please'  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  10  1 
fillin  strtdate  using  "  "  at  10  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  12  1 
fillin  enddate  using  "  "  at  12  53 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  sartimel 
newpage 

project  sartimel  from  sarunits  using  uwtime  uwdate  ostime  osdate  + 
foldno  where  uwtime  exists  and  uwdate  exists  and  ostime  exists  and  + 
osdate  exists  and  uwdate  lea  osdate  and  uwdate  >=  .strtdate  and  + 
sutdate  <=  .enddate 

compute  ostimes  as  count  foldno  from  sartimel 

set  var  ossum  real 

set  var  timehour  real 

set  var  datehour  real 

set  var  test  real 

set  var  timeadd  real 

set  var  minostim  real 
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set  var  maxostlm  real 
set  var  ossum  to  0.0 
set  var  minostim  to  1000.0 
set  var  maxostim  to  0.0 

write  "Now  computing  sar  time  statist-cs"  at  10  15 
set  pointer  #1  nl  for  sartimel 
while  nl  eq  0  then 

set  var  uwtime  to  uwtime  in  #1 
set  var  uwdate  to  uwdate  in  #1 
set  var  ostime  to  ostime  iu  #1 
set  var  osdate  to  osdate  in  #1 
if  uwdate  =  .osdate  then 

set  var  timediff  to  .ostime  -  .uwtime 
set  var  timehour  to  .timediff  /  3600.0 
^(converts  seconds  to  hours) 
set  var  test  to  .timehour 
set  var  ossum  to  .ossiam  +  .timehour 
else 

set  var  datediff  to  .osdate  -  .uwdate 
set  var  datehour  to  .datediff  x  24.0 
^(converts  days  to  hours) 
set  var  timediff  to  .ostime  -  .uwtime 
set  var  timehour  to  .timediff  /  3600.0 
*( converts  seconds  to  hours) 
set  var  timeadd  to  .timehour  +  .datehour 
set  var  test  to  .timeadd  . 
set  var  ossum  to  .ossum  +  .timeadd 
endif 

if  test  <=  .minostim  then 
set  var  minostim  to  .test 
endif 

if  test  >=  .maxostim  then 
set  var  maxostim  to  .test 
endif 

next  #1  nl 
endwhile 
remove  sartimel 
remove  sartime2 
newpage 

proiect  sartime2  from  sarunits  using  uwtime  uwdate  sutmoor  sutdate  + 
foldno  where  uwtime  exists  and  uwdate  exists  and  sutmoor  exists  and  + 
sutdate  exists  and  uwdate  lea  sutdate  and  uwdate  >=  .strtdate  and  + 
sutdate  <=  .enddate 

compute  tottimes  as  count  foldno  from  sartime2 

set  var  totsum  real 

set  var  mintttim  real 

set  var  maxtttim  real 

set  var  totsum  to  0.0 

set  var  mintttim  to  1000.0 

set  var  maxtttim  to  0.0 

set  pointer  #1  nl  for  sartime2 

while  nl  eq  0  then 

set  var  uwtime  to  uwtime  in  #1 
set  var  uwdate  to  uwdate  in  #1 
set  var  sutmoor  to  sutmoor  in  #1 
set  var  sutdate  to  sutdate  in  #1 
if  uwdate  =  .sutdate  then 

set  var  timediff  to  .sutmoor  -  .uwtime 
set  var  timehour  to  .timediff  /  3600.0 
^(converts  seconds  to  hours) 
set  var  test  to  .timehour 
set  var  totsum  to  .totsum  +  .timehour 
else 

set  var  datediff  to  .sutdate  -  .uwdate 

set  var  datehour  to  .datediff  x  24.0 

*(converts  days  to  hours) 

set  var  timediff  to  .sutmoor  -  .uwtime 

set  var  timehour  to  .timediff  /  3600.0 

^(converts  seconds  to  hours) 

set  var  timeadd  to  .timehour  +  .datehour 


set  var  test  to  .timeadd 
set  var  totsum  to  .totsum  +  .timeadd 
endif 

if  test  <s  .mintttim  then 
set  var  mintttim  to  .test 
endif 

if  test  >=  .maxctcim  then 
set  var  maxtttim  to  .test 
endif 

next  #1  nl 
endwhile 
remove  sartime2 
remove  sartimeS 
newpage 

project  sartimeS  from  sarunits  using  uwtime  uwdate  alngtime  alngdate  + 
foldno  where  uwtime  exists  and  uwdate  exists  and  alngtime  exists  and  + 
alngdate  exists  and  uwdate  lea  alngdate  and  uwdate  >=  .strtdate  and  + 
sutdate  <=  .enddate 

compute  algtimes  as  count  foldno  from  sartime3 

set  var  algsum  real 

set  var  minaltim  real 

set  var  maxaltim  real 

set  var  algsum  to  0.0 

set  var  minaltim  to  1000.0 

set  var  maxaltim  to  0.0 

set  pointer  #1  nl  for.  sartime3 

while  nl  eq  0  then 

set  var  uwtime  to  uwtime  in  #1 
set  var  uwdate  to  uwdate  in  #1 
set  var  algtime  to  alngtime  in  #1 
set  var  algdate  to  alngdate  in  #1 
if  uwdate  =  .algdate  then 

set  var  timediff  to  .algtime  -  .uwtime 
set  var  timehour  to  .timediff  /  3600.0 
*(converts  seconds  tc  hours) 
set  var  test  to  .timehour 
set  var  algsum  to  .algsum  t  .timehour 
else 

set  var -datediff  to  .algdate  -  .uwdate 
set  var  datehour  to  .datediff  x  24.0 
*(converts  days  to  hours) 
set  var  timediff  to  .algtime  -  .uwtime 
set  var  timehour  to  .timediff  /  3600.0 
*(converts  seconds  to  hours) 
set  var  timeadd  to  .timehour  +  .datehour 
set  var  test  to  .timeadd 
set  var  algsum  to  .algsum  +  .timeadd 
endif 

if  test  <=  .minaltim  then 
set  var  minaltim  to  .test 
endif 

if  test  >=  .maxaltim  then 
set  var  maxaltim  to  .test 
endif 

next  #1  nl 
endwhile 
remove  sartime3 
remove  sartime4 
newpage 

project  sartime4  from  sarunits  using  ostime  osdate  alngtime  alngdate  + 
foldno  where  ostime  exists  and  osdate  exists  and  alngtime  exists  and  + 
alngdate  exists  and  osdate  lea  alngdate  and  uwdate  >=  .strtdate  and 
sutdate  <=  .enddate 

compute  schtimes  as  count  foldno  from  sartime4 

set  var  schsum  real 

set  var  minshtim  real 

set  var  maxshtim  real 

set  var  schsum  to  0.0 

set  var  minshtim  to  1000.0 

set  var  maxshtim  to  0.0 


set  pointer  #1  nl  for  sartline4 
while  nl  eq  0  then 

set  var  ostime  to  ostlme  in  #1 
set  var  osdate  to  osdate  in  #1 
set  var  algtime  to  alngtime  in  #1 
set  var  algdate  to  alngdate  in  #1 
if  osdate  =  .algdate  then 

set  var  tlmediff  to  .algtime  >  .ostime 
set  var  timehour  to  .timediff  /  3600.0 
"(converts  seconds  to  hours) 
set  var  test  to  .timehour 
set  var  schsum  to  .schsum  +  .timehour 
else 

set  var  datediff  to  .algdate  •  .osdate 
set  var  datehour  to  .datediff  x  24.0 
^(converts  days  to  hours) 
set  var  timediff  to  .algtime  -  .ostime 
set  var  timehour  to  .timediff  /  3600.0 
^(converts  seconds  to  hours) 
set  var  timeadd  to  .timehour  +  .datehour 
set  var  test  to  .timeadd 
set  var  schsu.'^i  re  ..•jihsum  +  .timeadd 
endif 

if  test  <=  .rair.ihl  li,:  ^b.en 
set  var  minsh^  ,...  to  ,test 
endif 

if  test  >=  .maxshtim  then 
set  var  maxshtim  to  .test 
endif 
next  #1  nl 
endwhile 
remove  sartime4 
remove  sartimeS 
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project  sartimeS  from  sarunits  using  towtime  towdate  dvmoored  (^vmdate 
foldno  where  towtime  exists  and  towdate  exists  and  dvmoored  exists  + 
and  dvmdate  exists  and  towdate  lea  dvmdate  and  uwdate  >-  .strtdate  + 
and  sutdate  <-  .enddate 

compute  towtimes  as  count  foldno  from  sartimeS 

set  var  towsum  real 

set  var  mintwtim  real 

set  var  maxtwtim  real 

set  var  towsum  to  0.0 

set  var  mintwtim  to  1000.0 

set  var  maxtwtim  to  0,0 

set  pointer  #1  nl  for  sartimeS 

while  nl  eq  0  then 

set  var  towtime  to  towtime  in  #1 
set, var  towdate  to  towdate  in  #1 
set  var  dvmtime  to  dvmoored  in  #1 
set  var  dvmdate  to  dvmdate  in  #1 
if  towdate  =  .dvmdate  then 

set  var  timediff  to  .dvmtime  -  .towtime 
set  var  timehour  to  .timediff  /  3600.0 
*( converts  seconds  to  hours) 

•set  var  test  to  .timehour 
set  var  towsum  to  .towsum  +•  .timehour 
else 

set  var  datediff  to  .dvmdate  -  .towdate 
set  var  datehour  to  .datediff  x  24.0 
*(converts  days  to  hours) 
set  var  timediff  to  .dvmtime  -  .towtime 
set  var  timehour  to  .timediff  /  3600.0 
*(converts  seconds  to  hours) 
set  var  timeadd  to  .timehour  +  .datehour 
set  var  test  to  .timeadd 
set  var  towsum  to  .towsum  +  .timeadd 
endif 

if  test  <=  .mintwtim  then 
set  var  mintwtim  to  .test 


endlf 

if  test  >>  .maxtwtim  then 
set  var  maxtwtim  to  .test 
endlf 
next  #1  nl 
endwhlle 
remove  sartlmeS 
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set  var  totavg  real 
set  var  oscavg  real 
set  var  algavg  real 
set  var  scfiavg  real 
set  var  towavg  real 
set  var  totavg  to  .totsum  /  .tottimes 


set  var  oscavg  to 
set  var  algavg  to 
schavg  to 
towavg  to 


set  var  schavg  to  .schsum  / 
set  var  towavg  to  .towsum  / 
remove  temp 
define 
attributes 
tmp  text  2 
relations 
temp  with  tmp 
end 

load  temp 
"XX" 

end 
ne 
wri 

output  prin 
nei^age 

print  sartimes 
newpage 
output  screen 
remove  temp 
clear  all  variables 
set  escape  off 
return 
*(  end  ) 


.ossurn  /  .ostimes 
.algsum  /  .algtimes 


.  schtimes 
.  towtimes 


swpage 

rite  "Now  preparing 
itput  printer  with 


report"  at  10  15 
sartimes. rpt 


$C0HHAND 

SARDAY 


Program: 

Author: 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


SAR  Days,  SAR  Months,  SAR  Years  Frequency 
Analysis 

J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 
of  SAR  cases  to  determine  percentage  of 
cases  which  occurred  on  specific  days  of  the 
week,  months  of  the  year  and  years  auring  a 
specified  time  period, 
sar 

sarsuml,  sarstat,  sarsum,  temp 

sardates,  sardays 

none 


**:^t*****************************y(*y!******:*t*****:^:*(**********************  ) 

set  null  "  " 
set  error  messages  off 
set  messages  off 
set  escape  on 
newpage 

clear  all  variables 
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ii 
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remove  sarsvunl 

write  "This  program  will  perform  a  statistical  report  on"  at  3  1 
write  "days  of  the  week,  months  of  the  year,  and  individual"  at  4  1 
write  "years  that  SAR  cases  have  occurred.  "  at  5  1 
write  "This  program  will  evaluate  statistics  starting  from  1980."  at  8  1 
write  "Please  indicate  how  many  years  of  data  you  wish  to  analyze."  + 
at  9  1 

set  var  numyears  integer 
set  var  numyears  to  999999 
set  error  messages  on 

while  numyears  <=  0  or  numyears  >  32  then 

*(system  will  only  do  stats  until  2012) 
fillin  numyears  using  "Number  of  years:  "  at  12  20 
if  numyears  <=  0  or  numyears  >  32  then 

write  "You  must  enter  a  number  between  1  and  32"  at  15  20 
write  "Please  reenter."  at  16  30 
endif 
endwhile 

set  var  strtdate  date 

set  var  enddate  date 

set  var  strtdate  to  01/01/1980 

set  var  count  integer 

set  var  cour.f  “o  1 

set  var  davtadd  integer 

set  var  uaysadd  to  0 

while  count  <=  .numyears  then 

set  var  yrtestl  to  .numyears  /  4 
set  var  yrtest2  to  .yrtestl  x  4 
set  var  yrtest  to  .numyears  -  .yrtest2 
if  yrtest  =  0  then 

set  var  daysadd  to  .daysadd  +  366 
else 

set  var  daysadd  to  .daysadd  +  365 
endif 

set  var  count  to  .count  +  1 
endwhile 

set  var  enddate  to  .strtdate  +  .daysadd 
newpage 

set  error  messages  off 

write  "Since  this  program  can  take  5  to  lO  minutes  to  run,  you  may"  + 
at  12  1 

write  "press  the  escape  [ESC]  key  to  exit  to  the  RBase  5000  command"  + 
at  13  1 

write  "prompt  where  can  either  restart  the  menu  system  by  typing:"  + 
at  14  1 

write  "  RUN  STARTUP.BIN"  at  16  1 

write  "or  exitting  the  system  by  typing:"  at  18  1 

write  "  EXIT'^'  at  20  1 

write  "Press  any  key  to  continue"  at  23  10 

pause 

newpage 

project  sarsuml  from  sar  using  sardate  sarday  folderno  sorted  by  + 

sardate  where  sardate  >=  .strtdate  and  sardate  <=  .enddate 

compute  numrows  as  rows  from  sarsuml 

set  var  begndate  date 

set  var  stopdate  date 

set  var  begndate  to  01/01/1980 

set  var  stopdate  to  12/31/1980 

set  var  count  integer 

set  var  count  to  1 

set  var  saryear  integer 

set  var  saryear  to  1979 

remove  sarstat 

set  var  sarnum  integer 

define 

attributes 

saryear  integer 

sarnum  integer 

relations 

sarstat  with  saryear  sarnum 


373 


end 

while  count  .numyears  then 

compute  numsars  as  count  sardate  from  sarsuml  where  + 
sardate  >»  .begndate  and  sardate  <-  .stopdate 
set  var  saryear  to  .saryear  +  1 
if  numsars  tails  then 
set  var  sarnum  to  0 
else 

set  var  sarnum  to  .numsars 
endif 

load  sarstat 

.saryear  .sarnum 

end 

set  var  yrtestl  to  .saryear  /  4 
set  var  yrtest2  to  .yrtestl  x  4 
set  var  yrtest  to  .saryear  -  .yrtest2 
if  yrtest  =  0  then 

set  var  begndate  to  .begndate  +  366 
set  var  stopdate  to  .stopdate  +  366 
else 

set  var  begndate  to  .begndate  +  365 
set  var  stopdate  to  .stopdate  +  365 
endif 

set  var  count  to  .count  +  1 
endwhile 

set  var  jansar  integer 
set  var  count  integer 
set  var  jandatel  date 
set  var  3.andate2  date 
set  var  tebsar  integer 
set  var  febdatel  date 
set  var  febdate2  date 
set  var  marsar  integer 
set  var  mardatel  date 
set  var  mardate2  date 
set  var  aprsar  integer 
set  var  aprdatel  date 
set  var  aprdate2  date 
set  var  maysar  integer 
set  var  maydatel  date 
set  var  raaydate2  date 
set  var  junsar  integer 
set  var  ^undatel  date 
set  var  qundate2  date 
set  var  qulsar  integer 
set  var  quldatel  date 
set  var  3uldate2  date 
set  var  augsar  integer 
set  var  augdatel  date 
set  var  augdate2  date 
set  var  sepsar  integer 
set  var  sepdatel  date 
set  var  sepdate2  date 
set  var  octsar  integer 
set  var  octdatel  date 
set  var  octdate2  date 
set  var  novsar  integer 
set  var  novdatel  date 
set  var  novdate2  date 
set  var  decsar  integer 
set  var  decdatel  date 
set  var  decdate2  date 
set  var  jansar  to  0 
set  var  rebsar  to  0 
set  var  marsar  to  0 
set  var  aprsar  to  0 
set  var  maysar  to  0 
set  var  junsar  to  0 
set  var  julsar  to  0 
set  var  augsar  to  0 
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set  var  sepsar  to  0 
set  var  octsar  to  0 
set  var  novsar  to  0 
set  var  decsar  to  0 
set  var  jandatel  to  01/01/1980 
set  var  jandateZ  to  01/31/1980 
set  var  febdatel  to  02/01/1980 
set  var  febdateZ  to  02/28/1980 
set  var  mardatel  to  03/01/1980 
set  var  mardateZ  to  03/31/1980 
set  var  aprdatel  to  04/01/1980 
set  var  aprdateZ  to  04/30/1980 
set  var  maydatel  to  05/01/1980 
set  var  maydateZ  to  05/31/1980 
set  var  jundatel  to  06/01/1980 
set  var  nundateZ  to  06/30/1980 
set  var  luldatel  to  07/01/1980 
set  var  juldateZ  to  07/31/1980 
set  var  augdatel  to  08/01/1980 
set  var  augdateZ  to  08/31/1980 
set  var  sepdatel  to  09/01/1980 
set  var  sepdateZ  to  09/30/1980 
set  var  octdatel  to  10/01/1980 
set  var  octdateZ  to  10/31/1980 
set  var  novdatel  to  11/01/1980 
set  var  novdateZ  to  11/30/1980 
set  var  decdatel  to  12/01/1980 
set  var  decdateZ  to  12/31/1980 
set  var  count  to  1 
newpage 

write  "Now  performing  statistical  analysis"  at  10  10 
while  count  <=  .numyears  then 

compute  janrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .jandatel  and  sardate  <=  .jandate2 
if  janrows  exists  then 

set  var  jansar  to  .jansar  +  .janrows 
endif 

compute  febrows  as  count  sardate  from  sarsuml  where  +. 
sardate  >=  .febdatel  and  sardate  <=  .febdateZ 
if  febrows  exists  then 

set  var  febsar  to  .febsar  +  .febrows 
endif 

compute  marrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .mardatel  and  sardate  <=  .mardateZ 
if  marrows  exists  then 

set  var  marsar  to  .marsar  +  .marrows 
endif 

compute  aprrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .aordatel  and  sardate  <=  .aordateZ 
if  aprrows  exists  then 

set  var  aprsar  to  .aprsar  +  .aprrows 
endif 

compute  mayrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .maydatel  and  sardate  <=  .maydateZ 
if  mayrows  exists  then 

set  var  maysar  to  .maysar  +  .mayrows 
endif 

compute  junrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .jundatel  and  sardate  <=  .jundateZ 
if  junrows  exists  then 

set  var  junsar  to  .junsar  +  .junrows 
endif 

compute  julrows  as  count  sardate  from  sarsuml  where  + 

sardate  >=  .juldatel  and  sardate  <=  .juldateZ 

if  julrows  exists  then 

set  var  julsar  to  .julsar  +  .julrows 

endif 

compute  augrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .augdatel  and  sardate  <=  .augdate? 
if  augrows  exists  then 
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set  var  augsar  to  .augsar  +  .augrows 
endlf 

compute  seprows  as  count  sardate  from  sarstunl  where  + 
sardate  >=  .sepdatel  and  sardate  <=  .sepdate2 
if  seprows  exists  then 

set  var.sepsar  to  .sepsar  +  .seprows 
endif 

compute  octrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .octdatel  and  sardate  <=  .octdateZ 
if  octrows  exists  then 

set  var  octsar  to  .octsar  +  .octrows 
endif 

compute  novrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .novdatel  and  sardate  <=  .novdateZ 
if  novrows  exists  then 

set  var  novsar  to  .novsar  +  .novrows 
endif 

compute  decrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .decdatel  and  sardate  <=  .decdate2 
if  decrows  exists  then 

set  var  decsar  to  .decsar  +  .decrows 
endif 

set  var  yrtestl  to  .saryear  /  4 
set  var  yrtestZ  to  .yrtestl  x  4 
set  var  yrtest  to  .saryear  -  .yrtestZ 
if  yrtest  =  0  then 

set  var  jandatel  to  .jandatel  +  366 

set  var  landateZ  to  .iandate2  +  366 

set  var  rebdatel  to  .febdatel  +  366 

set  var  febdateZ  to  .febdateZ  +  366 

set  var  mardatel  to  .mardatel  t  366 

set  var  mardateZ  to  .mardateZ  +  366 

set  var  aprdatel  to  .aprdatel  +  366 

set  var  aprdateZ  to  .aprdateZ  +  366 

set  var  maydatel  to  .maydatel  +  366 

set  var  maydateZ  to  .maydateZ  +  366 

set  var  jundatel  to  .jundatel  +  366 

set  var  ^undateZ  to  .gundateZ  +  366 

set  var  ^uldatel  to  .^uldatel  +  366 

set  var  ]uldate2  to  .]uldateZ  +  366 

set  var  augdatel  to  .augdatel  +  366 

set  var  augdate2  to  .augdateZ  +  366 

set  var  sepdatel  to  .sepdatel  +  366 

set  var  sepdateZ  to  .sepdateZ  +  366 

set  var  octdatel  to  .octdatel  +  366 

set  var  octdateZ  to  .octdateZ  +  366 

set  var  novdatel  to  .novdatel  +  366 

set  var  novdateZ  to  .novdateZ  +  366 

set  var  decdatel  to  .decdatel  +  366 

set  var  decdateZ  to  .decdateZ  +  366 

else 

set  var  jandatel  to  .jandatel  +  365 

set  var  landateZ  to  .landateZ  +  365 

set  var  febdatel  to  .febdatel  +  365 

set  var  febdateZ  to  .febdateZ  +  365 

set  var  mardatel  to  .mardatel  +  365 

set  var  mardateZ  to  .mardateZ  +  365 

set  var  aprdatel  to  .aprdatel  +  365 

set  var  aprdateZ  to  .aprdateZ  +  365 

set  var  maydatel  to  .maydatel  +  365 

set  var  maydateZ  to  .maydateZ  +  365 

set  var  jundatel  to  .jundatel  +  365 

set  var  qundateZ  to  .^undateZ  +  365 

set  var  juldatel  to  .juldatel  +  365 

set  var  juldateZ  to  .juldateZ  +  365 

set  var  augdatel  to  .augdatel  +  365 

set  var  augdateZ  to  .augdateZ  +  365 

set  var  sepdatel  to  .sepdatel  +  365 

set  var  sepdateZ  to  .sepdateZ  +  365 

set  var  octdatel  to  .octdatel  +  365 


set  var  octdate2  to  .octdate2  +  365 
set  var  novdatel  to  .novdatel  -i-  365 
set  var  novdate2  to  .novdate2  +  365 
.  set  var  decdatel  to  .decdatel  *  365 
set  var  decdate2  to  .decdate2  +  365 
endif 

set  var  count  to  .count  -i-  1 
endwhlle 
newpage 

compute  totsars  as  rows  from  sarsuml 

set  var  pctian  real 

set  var  pctreb  real 

set  var  pctmar  real 

set  var  pctapr  real 

set  var  pctmay  real 

set  var  pctjun  real 

set  var  pct3ul  real 

set  var  pctaug  real 

set  var  pctsep  real 

set  var  pctoct  real 

set  var  pctnov  real 

set  var  pctdec  real 

* (calculating  percentages  based  on  total  SAR  cases) 
set  var  pctian  to  .iansar  /  .totsars 
set  var  pctreb  to  .febsar  /  .totsars 
set  var  pctmar  to  .marsar  /  .totsars 
set  var  pctapr  to  .aprsar  /  .totsars 
set  var  pctmay  to  .maysar  /  .totsars 
set  var  pctjun  to  .junsar  /  .totsars 
set  var  pctjul  to  .]ulsar  /  .totsars 
set  var  pctaug  to  .augsar  /  .totsars 
set  var  pctsep  to  .sepsar  /  .totsars 
set  var  pctoct  to  .octsar  /  .totsars 
set  var  pctnov  to  .novsar  /  .totsars 
set  var  pctdec  to  .decsar  /  .totsars 
newpage 

write  "Preparing  report...." 
if  numrows  fails  or  numrows  ~  0  then 
newpage 

write  "No  records  exist  in  the  database  matching  your  selection 
criteria"  at  10  1 

write  "Please  press  any  key  to  continue"  at  16  10 
pause 
else 

output  printer  with  sardates.rpt 
newpage 

print  sardates 
output  screen 
endif 

remove  sarsum 
remove  sarstat 
newpage 
clear  numrows 

project  sarsum  from  sar  using  folderno  sarday  sardate  where  + 
saraay  exists  and  sardate  exists 
compute  numrows  as  rows  from  sarsum 

compute  monday  as  count  sarday  from  sarsum  where  sarday  eq  mon 
compute  tuesday  as  count  sarday  from  sarsum  where  sarday  eq  tue 
compute  wedsday  as  count  sarday  from  sarsum  where  sarday  eq  wed 
compute  thursday  as  count  sarday  from  sarsum  where  sarday  eg  thu 
compute  friday  as  count  sarday  from  sarsum  where  sarday  eq  fri 
compute  Saturday  as  count  saraay  from  sarsum  where  sarday  eq  sat 
compute  Sunday  as  count  sarday  from  sarsum  where  sarday  eq  sun 
compute  totdays  as  count  sarday  from  sarsum  where  sarday  exists 
set  var  pctmon  real 
set  var  pcttue  real 
set  var  pctwed  real 
set  var  pctthu  real 
set  var  pctfri  real 
set  var  pctsat  real 


set  var  pctsun  real 
set  var  pctmon  to  .monday  /  .totdays 
set  var  pcttue  to  .tuesday  /  .totdays 
set  var  pctwed  to  .wedsday  /  .totdays 
set  var  pctthu  to  .thursday  /  .totdays 
set  var  pctfri  to  .friday  /  .totdays 
set  var  pctsat  to  .Saturday  /  .totdays 
set  var  pctsun  to  .Sunday  /  .totdays 

write  "Processing  of  statistical  information  completed."  at  10  1 

write  "Now  preparing  report . "  at  11  1 

remove  temp 

define 

attributes 

tmp  text  2 

relations 

temp  with  tmp 

end 

load  temp 
"XX" 

end 

if  numrows  fails  or  numrows  =  0  then 
nemage 

write  "No  records  exist  in  the  database  matching  your  selection  + 
criteria"  at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 
pause 
else 

output  printer  with  sardays.rpt 
newpage 
print  sardays 
newpage 
output  screen 
endif 

clear  all  variables 
remove  temp 
remove  sarstat 
newpage 

set  escape  off 
return 
*(  end  ) 


$ COMMAND 
DAYNIGHT 
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Program: 
Author : 

Date  Written: 
Description: 


Daytime  vs.  Nighttime  Frequency  Analysis 
J  5  Allen  and  H  R  Lang 


Tables  Used: 
Tamp  Tables: 
Reports  Used: 
Forms  Used: 


J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 

of  SAk  cases  and  Boardings  to  determine 

percentage  of  cases  which  occur  in  the 

daytime  vs  those  that  occur  at  night  during 

a  specified  time  period. 

sar,  boarding 

sarsum,  bosum,  temp 

daynight 

none 


set  null  "  " 

set  escape  on 

set  messages  off 

set  error  messages  off 

clear  all  variables 

remove  sarsum 

newpage 


•I 


w 
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write  "This  program  performs  a  statistical  analysis  of  Search  &"  at  2  1 
write  "Rescue  cases  and  Boardings  to  determine  the  percentage  of  "  + 
at  3  1 

write  "cases  which  occurred  during  the  day  and  at  night  during  a  "  + 
at  4  1 

write  "specified  time  period.  "  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYYt"  at  8  1 
fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 
fillin  enddate  using  "  "  at  10  51 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 

project  sarsum  trom  sar  using  ssunrise  ssunset  sartime  sardate  where  + 
sardate  >=  .strtdate  and  sardate  <=  .enddate  and  ssunrise  exists  and  + 
sartime  exists 

compute  numrows  as  rows  from  sarsum 

compute  daysar  as  count  sartime  from  sarsum  where  sartime  gea  + 
ssunrise  and  sartime  Ita  ssunset 

compute  nitesar  as  count  sartime  from  sarsum  where  sartime  Ita  + 

ssunrise  or  sartime  gea  ssunset 

set  var  totsars  to  .daysar  +  .nitesar 

set  var  pctdays  real 

set  var  pctnites  real 

set  var  pctdays  to  .daysar  /  .totsars 

set  var  pctnites  to  .nitesar  /  .totsars 

set  var  pctdays  to  .pctdays  x  100.0 

set  var  octnites  to  .pctnites  x  100.0 

remove  sarsum 

remove  bosum 

newpage 

project  bosum  from  boarding  using  bsunset  bsunrise  botime  bodate  where  + 
bodate  >=  .strtdate  and  bodate  <=  .enddate  and  bsunrise  exists  and  + 
botime  exists 

compute  numrowsl  as  rows  from  bosum 

compute  daybrd  as  count  botime  from  bosum  where  botime  gea  bsunrise  + 
and  botime  Ita  bsunset 

compute  nitebrd  as  count  botime  from  bosum  where  botime  Ita  bsunrise  + 
or  botime  gea  bsunset 
set  var  totbrds  to  .daybrd  +  .nitebrd 
set  var  pctdayb  real 
set  var  octniteb  real 


. totbrds 
/  . totbrds 


set  var  pctdayb  to  .daybrd  / 
set  var  pctniteb  to  .nitebrd 
set  var  pctdayb  to  .pctdayb  :i  100.0 
set  var-  pctniteb  to  .pctniteb  x  100.0 
remove  bosum 
remove  temp 
ne^^age 
define 
attributes 
tmp  text  2 
relations 
temp  with  tmp 
end 

load  temp 
"XK" 

end 

newpage 

write  "Preparing  report . " 

if  numrows  fails  or  numrows  =  0  then 

if  numrowsl  fails  or  numrowsl  =  0  then 
newpage 

write  "No  records  exist  matching  your  selection  criteria"  + 
at  10  1 
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write  "Please  press  any  key  to  return  to  menu"  at  16  10 
pause 
else 

output  printer  with  daynight .  rpt 
newpage 

print  daynight 
newpage 
output  screen 
endif 
else 

output  printer 
nei^age 
print  daynight 
newpage 
output  screen 
endif  ' 
remove  sarsum 
remove  bosum 
remove  temp 
newpage 
return 
*(  end  ) 


$C0MMAND 

SARDUMP 


Program: 

Author: 

Date  Written; 
Description; 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


SAR  Summary  Listing  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  dump  of  the  table  SAR 
of  those. SAR  cases  that  occurred  during  a 
specified  time  period.  The  listing  is  sorted 
by  date  prior  to  being  printed.  • 
sar 

sarsum 

sar 

none 


set  null  "  " 

set  escape  on 

set  messages  off 

set  error  messages  off 

newpage 

clear  all  variables 

write  "This  program  will  dump  all  information  on  SAR  cases  "  at  3  1 
write  "which  are  selected  based  on  SAR  date.  If  you  wish  to  print"  + 
at  4  1 

write  "out  the  entire  database  of  SAR  cases,  please  enter  the  date  "  + 
at  5  I 

write  "[01/01/1900]  for  the  starting  date  and  todays  date  for  the  "  + 
at  5  1 

write  "ending  date .  "  + 

at  7  1 

set  var  strtdate  date 
set  var  enddate  date 
set  var  datediff  to  0 
set  error  messages  on 
while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  9  1 
fillin  strtdate  using  "  "  at  9  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  11  1 
fillin  enddate  using  "  "  at  11  53 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 
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set  error  messages  off 
remove  sarsum 
newpage 

project  sarsum  from  sar  using  all  sorted  by  sardate  where  + 
sardate  >=  .strtdate  and  sardate  <=  .enddate 
compute  numrows  as  rows  from  sarsum 
newpage 

write  "Now  preparing  report. . "  at  11  1 

if  numrows  tails  or  numrows  =  0  then 
newpage 

write  "No  records  exist  matching  your  selection  criteria"  + 
at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 
pause 
else 

output  printer  with  sar.rpt 
nev^age 
print  sar 
newpage 
output  screen 
endif 

remove  sarsum 
newpage 

clear  all  variables 

return 

*(  end  ) 


$COMMAND 

IMMEDSAR 


*  ^  *******************************  i<i:fc************************************* 


Program: 
Author : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Immediate  SAR  Frequency  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 
of  SAR  cases  to  determine  percentage  of  cases 
which  are  of  immediate  nature  during  a 
specified  time  period, 
sar 

sarsum,  temp 

immedsar 

none 


***********************************************************************) 

set  null  "  " 

set  escape  on 

set  messages  off 

set  error  messages  off 

clear  all  variables 

remove  sarsum 

newpage 

write  "This  program  performs  a  statistical  analysis  of  Search  &"  at  2  1 
write  "Rescue  cases  to  determine  the  percentage  of  cases  which  "  at  3  1 
write  "are  considered  to  be  of  an  immediate  nature  or  of  "  at  4  1 
write  "immediate  peril  to  the  vessel  during  a  specified  time  period"  + 
at  5  1 

set  var  strtdate  date 
set  var  enddate  date 
set  var  datediff  to  0 
set  error  messages  on 
while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 
fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  HM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  51 

set  var  datediff  to  .enddate  -  .strtdate 
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endwhlle 

set  error  messages  off 
remove  sarsum 
newpage 

project  sarsum  from  sar  using  folderno  immedsar  sardate  where  sardate  -<■ 
>a  .strtdate  and  sardate  <»  .enddate 
compute  numrows  as  rows  from  sarsum 

compute  totsars  as  count  folderno  from  sarsum  where  folderno  exists 

compute  totimmed  as  count  immedsar  from  sarsum  where  immedsar  =  Y 

set  var  pctimmed  real 

set  var  pctnotim  real 

set  var  pctimmed  to  .totimmed  /  .totsars 

set  var  notimmed  to  .totsars  -  .totimmed 

set  var  pctnotim  to  .notimmed  /  .totsars 

remove  temp 

^(defining  temporary  relation  for  orinting) 

define 

attributes 

tmp  text  2 

relations 

temp  with  tmp 

end 

*( loading  temporary  relation  with  data) 
load  temp 
"XK" 

end 

ne\raage 

write  "Now  preparing  Immediate  SAR  case  report . "  at  10  1 

if  numrows  fails  or  numrows  =  0  then 
newpage 

write  "No  records  exist  matching  your  selection  criteria"  + 
at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 
pause 
else 

output  printer  with  immedsar. rpt 
newpage 
print  immedsar 
output  screen 
endif 

remove  sarsum 
remove  temp 
newpage 

clear  all  variables 

return 

*(  end  ) 


382 


APPENDIX  M 
VSLRPTS  SOURCE  CODE 


$ COMMAND 
VSL  MAIN 

*^*7F**************************x*************:*-*************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

VESSEL  REPORTS  MENU  and  APPLICATION  PROGRAMS 


Author;  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*************************************x*********************************) 

set  error  messages  off 
set  messages  off 
set  escape  off. 
clear  all  variables 
newpage 

set  var  picks  integer 

choose  picks  from  vsljnenu  in  vslrpts.apx 
if  picks  eq  0  then 

quit  to  restvsl.cmd  . 
endif 

if  picks  eg  1  then 

run  VESSEL  in  vslrpts.apx 
quit  to  restvsl.cmd 
endif 

if  picks  eg  2  then 
•  run  VSLOWNER  in  vslrpts.apx 
quit  to  restvsl.cmd 
endif 

if  picks  eq  3  then 

run  VSLOPER  in  vslrpts.apx 
quit  to  restvsl.cmd 
endif 

if  picks  eq  4  then 

quit  to  restrpts.cmd 
endif 

quit  to  restvsl.cmd 

return 

$menu 

vsl  menu 

column  SARELTIS  —  VESSEL  REPORTS 

VESSEL  SUMMARY  LISTING 

VESSEL  —  OWNERS  OF  SPECIFIED  VESSELS 

VEESEL  OPERATORS  OF  SPECIFIED  VESSELS 

RETURN  TO  REPORTS  MENU 

*(  end  ) 


$ COMMAND  ■ 

VESSEL 

A  ^  **************************T<t:»t**************'  .*********:>(***************** 

Program:  Vessel  Summary  Listing  Program 
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.^1  J.,  jirjiru.  J’rjf-JK  f- 


Author  t 
Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  dump  of  the  VESSEL 

table.  Listing  entries  are  selected  by 

vessel  type,  vessel  use,  and  by  an 

alphabetic  search. 

vessel,  boattype,  boatuse 

vslsum,  vslsumi,  vslsum2 

vessel 

none 


**************************5lt**)<t*):t*****?>c’‘:>t******;*r*************5>r*:*c**:*f*****^ 

set  null  "  " 
set  error  messages  off 
set  messages  off 
set  escape  on 
newpage 

clear  all  variables 

write  "This  program  will  dump  all  information  on  vessels  " 
write  "which  are  selected  based  on  an  alphabetic  search,  vessel  " 
write  "type  search,  and  a  vessel  use  search.  " 

write  "The  following  is  a  list  a  legal  codes  for  vessel  type  (they  " 
write  "can  be  modified  by  changing/ adding  codes  to  the  BOATTYPE  table):" 
write  "  " 

select  all  from  boattype  sorted  by  vtype 
set  var  legaltyp  text 
set  var  typchoic  text 
set  var  legaltyp  to  no 
while  legaltyp  eq  no  then 
set  error  messages  on 

fillin  typchoic  using  "Please  enter  in  vessel  type  or  [XX]  for  all  + 
types:  " 

set  error  messages  off 
if  typchoioe  eq  XX  then 
set  var  anytype  to  yes 
set  var  legaltyp  to  yes 
break 
else 

set  var  anytype  to  no 
endif 

set  pointer  #1  nl  for  boattype 
while  nl  eq  0  then 

set  var  typetest  to  vtype  in  #1 
if  typchoic  eq  .typetest  then 
set  var  legaltyp  to  yes 
break 
endif 
next  #1  nl 
endwhile 
endwhile 
newpage 

set  var  usechoic  text 
set  var  legaluse  to  no 

write  "The  following  is  a  list  of  legal  codes  for  vessel  uses-  These  " 
write  "be  modified  by  adding/ changing  the  values  in  the  BOATUSE  table." 
write  "  " 

select  all  from  boatuse  sorted  by  vuse 
set  var  legaluse  text 
set  var  usechoic  text 
set  var  legaluse  to  no 
while  legaluse  eq  no  then 
set  error  messages  on 

fillin  usechoic  using  "Please  enter  vessel  use  or  XX  for  all  types:  " 
set  error  messages  off 
if  usechoic  eq  xX  then 
set  var  legaluse  to  yes 
set  var  anyuse  to  yes 
break 
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else 

set  var  anyuse  to  no 
endif 

set  pointer  #1  nl  for  boatuse 
while  nl  eq  0  then 

set  var  usetest  to  vuse  in  #1 
if  usechoic  eq  .usetest  then 
set  var  legaluse  to  yes 
break 
endif 

next  #1  nl 
endwhile 
endwhile 
newpage 

write  "Finally,  you  will  be  asked  to  enter  a  single  letter  for  both  + 
the" 

write  "start  and  the  end  of  an  alphabetic  grouping.  For  example,  if  " 
write  "you  enter  an  [e]  for  the  start  and  an  [i]  tor  the  end,  the  " 
write  "program  will  only  list  those  vessels  whose  names  begin  with  the" 
write  "letters  [e]  through  [i]  inclusively.  To  select  the  entire  + 
vessel" 

write  "database,  please  enter  [a]  and  [z]  in  their  corresponding  + 
fields" 

set  var  strtltr  text 
set  var  endltr  text 
set  var  Itrdiff  to  0 
set  error  messages  on 
while  Itrdiff  =  0  then 

fillin  strtltr  using  "Please  enter  starting  letter:  "  at  14  1 
fillin  endltr  using  "Please  enter  ending  letter:  "  at  16  1 

if  endltr  It  .strtltr  then 
set  var  Itrdiff  to  0 
else 
break 
endif 
endwhile 

set  error  messages  off 
newpage 

write  "You  now  have  the  option  to  select  how  you  would  like  the  + 
report"  at  3  1 

write  "to  appear.  It  can  be  sorted  by  vessel  name,  vessel  HIN,  "  + 
at  4  1 

write  "vessel  type,  or  vessel  use."  at  5  1 
set  var  choice  text 
set  var  legalch  to  no 
while  legalch  eq  no  then 

write  "1  Sorted  by  vessel  name"  at  8  1 
write  "2  Sorted  by  vessel  HIN"  at  9  1 

write  "3  Sorted  by  vessel  type"  at  10  1 

write  "4.  Sorted  by  vessel  use"  at  11  1 
set  error  messages  on 

fillin  choice  using  "Please  enter  your  choice:  "  at  13  1 
set  error  messages  off 

if  choice  eg  1  or  choice  eq  2  or  choice  eq  3  or  choice  eq  4  then 
set  var  legalch  to  yes 
break 
else 

set  var  legalch  to  no 
endif 
endwhile 
remove  vslsuml 
remove  vslsum2 
remove  vslsum 

*(produces  vessel  listing  sorted  by  vessel  name) 
if  choice  eq  1  then 

project  vslsuml  from  vessel  using  all  sorted  by  vslname  where  + 
vslname  ge  .strtltr  and  vslname  le  .endltr 
if  anytype  eq  yes  then 

project  vslsum2  from  vslsuml  using  all 
else 
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project  vslsuin2  from  vslsuml  using  all  where  vsltype  eg  .typchoic 
endlf 

If  anyuse  eg  yes  then 

project  vslsum  from  vslsum2  using  all 
else 

project  vslsum  from  vslsum2  using  all  where  vsluse  eg  .usechoic 
endlf 
endlf 

*(produces  vessel  listing  sorted  by  vessel  HIM) 
if  choice  eg  2  then 

project  vslsuml  from  vessel  using  all  sorted  by  vslhin  where  + 
vslnarae  ge  .strtltr  and  vslname  le  .endltr 
if  anytype  eg  yes  then 

project  vslsum2  from  vslsuml  using  all 
else 

project  vslsum2  from  vslsuml  using  all  where  vsltype  eg  .typchoic 
endlf 

if  anyuse  eg  yes  then 

project  vslsum  from  vslsum2  using  all 
else 

project  vslsum  from  vslsum2  using  all  where  vsluse  eg  .usechoic 
endlf 
endif 

*(produces  vessel  listing  sorted  by  vessel  type) 
if  choice  eg  3  then 

project  vslsuml  from  vessel  using  all  where  vslname  ge  .strtltr  and  + 
vslname  le  .endltr 
if  anytype  eg  yes  then 

project  vslsum2  from  vslsuml  using  all  sorted  by  vsltype 
else 

project  vslsum2  from  vslsuml  using  all  sorted  by  vsltype  where  + 
vsltype  eg  .typchoice 
endif 

if  anyuse  eg  yes  then 

project  vslsum  from  vslsum2  using  all 
else 

project  vslsum  from  vslsum2  using  all  v.here  vsluse  eg  .usechoic 
endlf 
endif 

^(produces  vessel  listing  sorted  by  vessel  use) 
if  choice  eg  4  then 

project  vslsuml  from  vessel  using  all  where  vslname  ge  .strtltr  and  + 
vslname  le  .endltr 
if  anytype  eg  yes  then 

project  vslsum2  from  vslsuml  using  all 
else 

project  vslsum2  from  vslsuml  using  all  where  vsltype  eg  .typchoic 
endif 

if  anyuse  eg  yes  then 

project  vslsum  from  vslsum2  using  all  sorted  by  vsluse 
else 

project  vslsum  from  vslsum2  using  all  sorted  by  vsluse  where  + 
vsluse  eg  .usechoic 
endif 
endif 

compute  numrows  as  rows  from  vslsum 
if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  10 
pause 
else 

output  printer  with  vessel. rpt 
newpage 
print  vessel 
output  screen 
endif 

remove  vslsum 
remove  vslsuml 
remove  vslsum2 
newpage 


clear  all  variables 


return 


*(  end  ) 


$COHHAND 

VSLOWNER 


Progratm  Vessel  -  Owner  Dump  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  performs  a  listing  sorted  by 

vessel  name  of  those  vessels  which  are 
owned  by  a  specified  group  of  owners.  All 
of  the  vessels  in  the  VESSEL  table  may  be 
selected  or  only  a  group  specified  in  an 
alphabetic  search. 

Tables  Used;  owvsl.  owners,  vessel 

Temp  Tables:  ownvsls,  ownvslsl,  ownvsls2 

Reports  Used:  vslowner 

Forms  Used:  none 


******************************************  jit****^*********************** ) 

set  null  "  " 
set  error  messages  off 
set  messages  off 
set  escape  on 
newpage 

clear  all  variables 

write  "This  program  will  prepare  a  listing  of  owners  which"  at  3  1 
write  "own  by  a  specified  group  of  vessels.  This  report  can"  at  4  1 
write  "provide  a  listing  or  all  owners  and  their  vessels  by"  at  5  1 

write  "responding  (y]  to  the  following  question . "  at  6  1 

write  "Do  you  wish  a  complete  listing  or  all  owners  and  their"  at  9  1 

write  "vessels  contained  in  the  system?"  at  10  1 

set  var  allrecs  text 

set  error  messages  on 

fillin  allrecs  using  "  "  at  10  40 

set  error  messages  off 

remove  ownvsls 

remove  ownvslsl 

remove  ownvsls 2 

newpage 

if  allrecs  contains  "y"  then 

join  owners  using  ownid  with  owvsl  using  idowner  forming  ownvslsl 
loin  ownvslsl  using  vhinown  with  vessel  using  vslhin  forming  + 
ownvsls2 

project  ownvsls  from  ownvsls2  using  ownlname  ownfname  ownmi  owndob  + 
ownaddr  owncity  ownstate  ownzip  owntelno  vslname  vslhin  sorted  by  + 
vslname 
else 

newpage 

set  var  strtltr  text 
set  var  endltr  text 
set  var  Itrdiff  to  0 
set  error  messages  on 
while  Itrdiff  =  0  then 

write  "Enter  starting  letter(s)  to  start  search:"  at  5  1 
fillin  strtltr  using  "  "  at  5  45 

write  "Enter  ending  letter(s)  to  end  search;"  at  7  1 
fillin  endltr  using  "  "  at  7  45 
if  endltr  It  .strtltr  then 
set  var  Itrdiff  to  0 
else 
break 
endif 


endwhlle 

set  error  messages  off 

join  owners  using  ownid  with  owvsl  using  idowner  forming  ownvslsl 
join  ownvslsl  using  vhinown  with  vessel  using  vslhin  forming  + 
ownvsls2 

project  ownvsls  from  ownvsls2  using  ownlname  ownfname  ownmi  owndob  + 
ownaddr  owncity  ownstate  ownzip  owntelno  vslname  vslhin  sorted  by  + 
vslname  where  vslname  ge  .strtltr  and  vslname  le  .endltr 
endif 

remove  ownvslsl 
remove  ownvsls2 
newpage 

compute  numrows  as  rows  from  ownvsls 
if  numrows  fails  or  numrows  3  0  then 

write  "No  records  match  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  10 
pause 
else 

outDUt  printer  with  vslowner.rpt 
newpage 

print  vslowner 
output  screen 
endif 

remove  ownvsls 
newpage 

clear  all  variables 
return 
end  ) 


SCOMMAND 

VSLOPER 


Program: 
Author : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Vessel  Operator  Dump  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  listing  sorted  by 
vessel  name  of  those  vessels  which  are 
operated  by  a  specified  group  of  operators. 
The  entire  list  of  vessels  may  be  printed 
or  a  specified  group  based  on  an  alphabetic 
search. 

opvsl,  operator,  vessel 
opervsls,  opvslsl,  opvslsZ 
vsloper 
none 


set  null  "  " 
set  error  messages  off 
set  messages  off 
set  escape  on 
newpage 

clear  all  variables 

write  "This  program  will  prepare  a  listing  of  operators  which"  at  3  1 
write  "operate  a  specified  group  of  vessels.  This  report  can"  at  4  1 
write  "provide  a  listing  of  all  operators  and  their  vessels  by"  at  5  1 

write  "responding  [y]  to  the  following  guestion . "  at  6  1 

write  "Do  you  wish  a  complete  listing  of  all  operators  and  their"  + 
at  9  1 

write  "vessels  contained  in  the  system?"  at  10  1 

set  var  allrecs  text 

set  error  messages  on 

fillin  allrecs  using  "  "  at  10  40 

set  error  messages  off 

remove  opervsls 


refflovt  opvslsl 
remove  opvslsZ 
newpaae 

if  allrecs  contains  "y"  then 

join  operator  using  opid  with  opvsl  using  idoper  forming  opvslsl 
join  opvslsl  using  vhlnoper  with  vessel  using  vslhin  forming  opvsls2 
project  opervsls  from  opvsls2  using  oplname  opfname  opmi  opdob  -«■ 
opaddr  opcity  opstate  opzip  optelno  vslname  vslhin  sorted  by  vslname 
else 

newpage 

set  var  strtltr  text 
set  var  endltr  text 
set  var  Itrdiff  to  0 
set  error  messages  on 
while  Itrdiff  =  0  then 

write  "Enter  starting  letter(s)  to  start  search:"  at  5  1 
fillin  strtltr  using  "  "  at  5  45 

write  "Enter  ending  letter (s)  to  end  search:"  at  7  1 
fillin  endltr  using  "  "  at  7  45 
if  endltr  It  .strtltr  then 
set  var  Itrdiff  to  0 
else 
break 
endif 
endwhile 

set  error  messages  off 

join  operator  using  opid  with  opvsl  using  idoper  forming  opvslsl 
join  opvslsl  using  vhinoper  with  vessel  using  vslhin  forming  opvsls2 
project  opervsls  from  opvsls2  using  oplname  opfname  opmi  opdob  + 
opaddr  opcity  opzip  opstate  optelno  vslname  vslhin  sorted  by  + 
vslname  where  vslname  ge  .strtltr  and  vslname  le  .endltr 
endif 

compute  numrows  as  rows  from  opervsls 
remove  opvslsl 
remove  opvsls2 
newpage 

if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  10 
pause 
else 

output  printer  with  vsloper.rpt 
ne^age 
print  vsloper 
output  screen 
endif 

remove  opvsls 
newpage 

clear  all  variables 

return 

*(  end  ) 
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APPENDIX  N 
PRSRPTS  SOURCE  CODE 


$COMMAND 

PRS,MAIN 

*^*^***j>t**5<(*A**>>t**:^:<r***i<(**A:fc**************)fc**************************:ic** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

PERSONNEL  REPORTS  MENU  and  APPLICATION  PROGRAMS 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


set  error  messages  off 
set  messages  off 
set  escape  off 
clear  all  variables 
newpage 

set  var  pick9  integer 
choose  pick9  from  prs_menu  in  prsrpts.apx 
if  picks  eq  0  then 
quit  to  restprs.cmd 
endif 

if  pick9  eg  1  then 

run  OWNERS  in  prsrpts.apx 
quit  to  testprs.cmd 
endif 

if  picks  eg  2  then 

run  OWNvSL  in  prsrpts.apx 
quit  to  restprs.cmd 
endif 

if  picks  eg  3  then 

run  OPERATOR  in  prsrpts.apx 
quit  to  restprs.cmd 
endif 

if  picks  eg  4  then 

run  OPERVSLS  in  prsrpts.apx 
quit  to  restprs.cmd 
endif 

if-  picks  eq  5  then 

quit  to  restrpts.cmd 
endif 

quit  to  restprs.cmd 

return 

$menu 

prs  menu 

column  SARELTIS  —  PERSONNEL  REPORTS 
OWNERS  OF  VESSELS  SUMMARY  LISTING 

OWNER  —  VESSELS  WHICH  APE  OWNED  BY  SPECIFIED  OWNERS 
OPERATORS  OF  VESSELS  SUMMARY  LISTING 

OPERATORS  VESSELS  WHICH  ARE  OPERATED  BY  SPECIFIED  OPERATORS 
RETURN  TO  REPORTS  MENU 
*(  end  ) 


\ 
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$COMHAND 

OWNERS 


Program : 
Author i 
Date  Written! 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Vessel  Owners  Table  Dump 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  prints  a  sorted  listing  of 
vessel  owners  contained  in  the  database 
based  on  the  owner's  last  name  and  date 
of  birth, 
owners 

ownsuml,  ownsum2 

owners 

none 


set  null  "  " 
set  error  messages  off 
set  messages  oft 
set  escape  on 
newpage 

clear  all  variables 

write  "This  program  will  dump  all  information  on  owners  in  the  + 
database"  at  3  1 

write  "which  are  selected  based  on  date  of  birth.  If  you  wish  to  + 
print"  at  4  1 

write  "out  the  entire  list  of  owners,  enter  the  date  [01/01/1900]  + 
for  "  at  5  1 

write  "the  starting  date  and  todays  date  for  the  ending  date."  at  6  1 
set  var  datediff  to  0 
set  error  messages  on 
while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 
fillin  strtdate  using  "  "  at  3  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 
fillin  enddate  using  "  "  at  10  53 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
newpage 

write  "Since  this  listing  can  be  very  long,  you  have  the  option  of  + 
only"  at  3  1 

write  "printing  a  selected  alphabetical  grouping  of  owners.  You  will  + 
be"  at  4  1 

write  "asked  to  enter  a  single  letter  for  the  both  the  start  and  end  + 
of"  at  5  1 

write  "an  alphabetic  grouping.  For  example,  if  you  enter  in  an  [e]  + 
for"  at  5  1 

write  "start  and  an  [i]  for  the  end,  the  program  will  provide  a  + 
listing"  at  7  1 

write  "of  only  those  owners  whose  last  names  begin  with  the  letters  "  + 
at  8  1 

write  "[e]  through  [i].  To  select  the  entire  owner  database,  + 


write  "[e]  through  [i].  To  select  the  entire  owner  datab 
please"  at  9  1 

write  "enter  [a]  and  [z]  in  their  corresponding  fields . "  + 

at  10  1 

set  var  strtltr  text 
set  var  endltr  text 
set  var  Itrdiff  to  0 
set  error  messages  on 
while  Itrdiff  =  0  then 

fillin  strtltr  using  "Please  enter  starting  letter:  " 
fillin  endltr  using  "Please  enter  ending  letter:  " 

if  endltr  It  .strtltr  then 
set  var  Itrdiff  to  0 
else 
break 


at  14  1 
at  16  1 


endlf 

•ndwhlle 

set  error  mtisagei  off 
remove  ownsuml 
remove  ownsum2 
newpage 

project  ownsuml  from  owners  using  all  sorted  by  ownlname  where  + 
owndob  .strtdate  and  owndob  <=  .enddate 

project  ownsum2  from  ownsuml  using  all  where  ownlname  ge  .strtltr  and  + 

ownlname  le  .endltr 

compute  numrows  as  rows  from  ownsum2 

newpage 

write  "Processing  of  statistical  information  completed."  at  10  1 

write  "Now  preparing  report . "  at  11  1 

if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  10 
pause 
else 

output  printer  with  owners. rpt 
newpage 
print  owners 
newpage 
outout  screen 
endif 

remove  ownsuml 
remove  ownsum2 
newpage 

clear  all  variables 

return 

*(  end  ) 


$ COMMAND 
OPERATOR 


Program: 
Author : 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used; 
forms  Used: 


Vessel  Operator  Listing 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  listing  of  operators 

of  vessels  contained  in  the  table  OPERATOR. 

They  are  selected  by  date  of  birth  and  by 

the  first  letter  of  the  last  name.  The 

listing  is  sorted  alphabetically  before 

being  printed. 

operator 

opsuml ,  opsum2 

operator 

none 


*********************************************************************** ) 


set  null  "  " 
set  error  messages  off 
set  messages  off 
set  escape  on 
newpage 

clear  all  variables 

write  "This  program  will  dump  all  information  on  operators  "  at  3  1 
write  "which  are  selected  based  on  date  of  birth.  If  you  wish  to  + 
print"  at  4  1 

write  "out  the  entire  list  of  operators,  enter  the  date  [01/01/1900]  + 
for"  at  5  1 

write  "the  starting  date  and  todays  date  for  the  ending  date."  at  6  1 
set  var  strtdate  date 
set  var  enddate  date 
set  var  datediff  to  0 


I 


set  error  messages  on 
while  datedlff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 
fillin  strtdate  using  "  "  at  8  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 
fillin  enddate  using  "  "  at  10  53 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
newpage 

write  "Since  this  listing  can  be  very  long,  you  have  the  option  of  + 
only"  at  3  1 

write  "printing  a  selected  grouping  of  operators.  You  will  be"  at  4  1 
write  "asked  to  enter  a  single  letter  for  the  both  the  start  and  end  + 
of  "  at  5  1 

write  "an  alphabetic  grouping.  For  example,  if  you  enter  in  an  [e]  + 
for"  at  6  1 


write  " 
listing 
write  " 
letters 


start  and  an  [i]  for  the  end,  the  program  will  provide  a  + 
"  at  7  1 

of  only  those  operators  whose  last  names  begin  with  the  + 

"  at  8  1 


write  "fel  through  [il.  To  select  the  entire  operator  database,  + 
please"  at  9  1 

write  "enter  [a]  and  [z]  in  their  corresponding  fields . "  + 

at  10  1 


set  var  strtltr  text 


set  var  endltr  text 


set  var  Itrdiff  to  0 


set  error  messages  on 
while  Itrdiff  =  0  then 

■  fillin  strtltr  using  "Please  enter  starting  letter:  "  at  14  1 
fillin  endltr  using  "Please  enter  ending  letter:  "  at  16  1 

if  endltr  It  .strtltr  then 
set  var  Itrdiff  to  0 
else 
break 
endif 
endwhile 

set  error  messages  off 
remove  opsuml 
remove  opsum2 
newpage 

project  opsuml  from  operator  using  all  sorted  by  oplname  where  + 
opdob  •>=  .strtdate  and  opdob  <=  .enddate 

project  opsum2  from  opsuml  using  all  where  oplname  ge  .strtltr  and  + 

oplname  le  .endltr 

compute  numrows  as  rows  from  opsum2 

write  "Processing  of  statistical  information  completed."  at  10  1 

write  "Now  preparing  report . "  at  II  1 

if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  10 
pause 
else 

output  printer  with  operator. rpt 
newpage 

print  operator 
output  screen 
endif 


remove  opsuml 
remove  opsum2 
newpage 

clear  all  variables 


return 
*(  end  ) 


$COMMAND 

OPERVSLS 


Program j  Operator  -  Vessel  Program 

Author t  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  performs  a  listing  sorted  by 

operator  last  name  of  those  vessels  which 
are  used  by  specified  operators.  Operators 
may  be  selected  by  an  alphabetic  search  or 
may  be  selected  in  their  entirety. 

Tables  Used:  opvsl,  operator,  vessel 

Temp  Tables:  opervsls,  opvslsl,  opvsls2 

Reports  Used:  opervsls 

Forms  Used:  none 


set  null  "  " 
set  error  messages  off 
set  messages  oft 
set  escape  on 
newpage 

clear  all  variables 

write  "This  program  will  prepare  a  listing  of  vessels  which  are"  at  3  1 
write  "operated  by  a  selected  group  of  operators.  This  report  can"  + 
at  4  1 

write  "provide  a  listing  of  all  operators  and  their  vessels  by"  at  5  1 

write  "responding  [y]  to  the  following  question . "  at  6  1 

write  "Do  you  wish  a  complete  listing  of  all  operators  and  their"  + 
at  9  1 

write  "vessels  contained  in  the  system?"  at  10  1 

set  var  allrecs  text 

set  error  messages  on 

fillin  allrecs  using  "  "  at  10  40 

set  error  messages  off 

remove  opervsls 

remove  opvslsl 

remove  opvsls2 

if  allrecs  *  "y"  then 

join  operator  using  opid  with  opvsl  using  idoper  forming  opvslsl 
join  opvslsl  using  vhinoper  with  vessel  using  vslhin  forming  opvsls2 
project  opervsls  from  opvsls2  using  oplname  opfname  opmi  opaob  + 
opaddr  opcity  opstate  opzip  optelno  vslname  vslhin  sorted  by  oplname 
else 

newpage 

set  var  strtltr  text 
set  var  endltr  text 
set  var  Itrdiff  to  0 
set  error  messages  on 
while  Itrdiff  =  0  then 

write  "Enter  starting  letter(s)  to  start  search;"  at  5  1 
fillin  strtltr  using  "  "  at  5  45 

write  "Enter  ending  letter(s)  to  end  search:"  at  7  1 
fillin  endltr  using  "  "  at  7  45 
if  endltr  It  .strtltr  then 
set  var  Itrdiff  to  0 
else 
break 
endif 
endwhile 

set  error  messages  off 

join  operator  using  opid  with  opvsl  using  idoper  forming  opvslsl 
join  opvslsl  using  vhinoper  with  vessel  using  vslhin  forming  opvsls2 
project  opervsls  from  opvsls2  using  oplname  opfname  opmi  opdob  + 
opaddr  opcity  opstate  opzip  optelno  vslname  vslhin  sorted  by  + 
^o|lname  where  oplname  ge  .strtltr  and  oplname  le  .endltr 

compute  numrows  as  rows  from  opervsls 
remove  opvslsl 
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remove  opvfls2 
newpage 

If  numrows  fails  or  numrows  »  0  then 

write  "No  records  match  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  10 
pause 
else 

output  printer  with  opervsls.rpt 
newpage 

print  opervsls 
output  screen 
endlf 

remove  opervsls 
newpage 

clear  all  variables 

return 

*(  end  ) 


$C0MMAND 

OWNVSL 

A  ^  *******  A*****************************************************:*:******** 


Program: 

Author: 

Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used; 


Owner  -  Vessel  Dump  Program 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  listing  sorted  by 

owner  last  name  of  those  owners  which  own 

specific  vessels.  Owners  may  be  selected 

in  their  entirety  or  may  be  selected  by 

an  alphabetic  search. 

owvsl.  owners,  vessel 

ownvsis,  ownvslsl,  ownvsl,s2 

ownvjls 

none 


II  II 


set  null 
set  error  messages  off 
set  messages  off 
set  escape  on 


newpage 
clear  all  variables 


write  "This  program  will  prepare  a  listing  of  vessels  which  are" 
write  "owned  by  a  selected  group  of  owners.  This  report  can"  at 
write  "provide  a  listing  of  all  owners  and  their  vessels  by"  at  d 

write  "responding  [y]  to  the  following  question . "  at  6  1 

write  "Do  you  wish  a  complete  listing  ot  all  owners  and  their"  at 

write  "vessels  contained  in  the  system?"  at  10  1 

set  var  allrecs  text 

set  error  messages  on 

fillin  allrecs  using  "  "  at  10  40 

set  error  messages  off 

remove  ownvsis 

remove  ownvslsl 

remove  ownvsis 2 


at  3 
4  1 
1 


9  1 


newpage 

if  allrecs  contains  "y"  then 

join  owners  using  ownid  with  owvsl  using  idowner  forming  ownvslsl 
join  ownvslsl  using  vhinown  with  vessel  using  vslhin  forming  + 
ownvsls2 

project  ownvsis  from  ownvsls2  using  own? name  ownfname  ownmi  owndob  ^ 
ownaddr  owncity  ownstate  ownzip  owntelno  vslname  vslhin  sorted  by  + 
ownlname 
else 


newpage 

set  var  strtltr  text 
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set  var  endltr  text 
set  var  Itrdiff  to  0 
set  error  messages  on 
while  Itrdiff  =  0  then 

write  "Enter  starting  letter(s)  to  begin  search"  at  5  1 
fillin  strtltr  using  "  "  at  5  45 

write  "Enter  ending  letter (a)  to  end  search:"  at  7  1 
fillin  endltr  using  "  "  at  7  45 

if  endltr  It  .strtltr  then  i 

set  var  Itrdiff  to  0 
else 
break 
endif 
endwhile 

set  error  messages  off 

join  owners  using  ownid  with  owvsl  using  idowner  forming  ownvslsl 
join  ownvslsl  using  vninown  with  vessel  using  vslhin  forming  + 
ownvsls2 

project  ownvsls  from  ownvsls2  using  ownlname  ownfname  ownmi  owndob  + 
ownaddr  owncity  ownstate  ownzip  owntelno  vslname  vslhin  sorted  by  + 
ownlname  where  ownlname  ge  .strtltr  and  ownlname  le  .endltr 
endif 

compute  numrows  as  rows  from  ownvsls 
if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  10 
pause 
else 

output  printer  with  ownvsls. rpt 
nev^age 
print  ownvsls 
output  screen 
endif 

remove  ownvsls  • 
remove  ownvslsl 
remove  ownvsls2 
newpage 

clear  all  variables 

return 

*(  end  ) 
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APPENDIX  O 
SQUERY  SOURCE  CODE 


$C0MMAND 

QRYMAIN 


US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

QUERY  MENU  and  APPLICATION  PROGRAMS 


Au'-hon  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


A**********************************************************************) 

set  messages  off 
set  escape  off 
nevpage 

clear  all  variables 
set  var  picklO  integer 
newpage 

choose  picklO  from  qry_menu  in  squery.apx 
if  picklO  eq  0  then  ' 
quit  to  restqry.cmd 
endif 

if  picklO  eq- 1  then 

run  quer_vsl  in  squery.apx 
quit  to  restqry.cmd 
endif 

if  picklO  eq  2  then 

run  quer_per  in  squery.apx 
quit  to  restqry.cmd 
endif 

if  picklO  eq  3  then 
quit  to  restmain.cmd 
endif 

quit  to  restqry.cmd 

return 

$menu 

qry_menu 

column  SARELTIS  —  QUERY  MENU 
VESSEL  QUERY 
PERSONNEL  QUERY 
RETURN  TO  MAIN  MENU 
*(  end  ) 


$ COMMAND 
QUER  VSL 

A  ^  AA?r*A*AAAA*AA*A*A*AAA*AAAA*A*A*A*A*******A*A***AA’AAAAAAA**AAAA**AAAAAA 


Program : 
Author : 

Date  Written: 
Description: 


Tables  Used: 


Suery  Vessel 

R  Lang  and  J  D  Allen 
August  1987 

This  program  searches  database  for  all 
information  concerning  a  particular  vessel, 
vessel,  sar,  boarding,  owner,  operator. 
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Temp  Tables  i 
Reports  Usedi 


Forms  Used] 


owvsl,  opvsl,  vsllntel,  perlntel 
temp,  vsllnt,  perint,  bonis,  sarhls 
vslqprn,  boqprn,  sarqprn,  owqprn,  opqprn, 
pintqprn,  vintqprn 

vslquery,  brdquery,  sarquery,  ownquery, 
opquery,  pintquer,  vintquer 


set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  . "  -*■ 

at  10  10 

clear  all  variables 

set  null  "  " 

set  var  more  to  Y 

remove  temp  *( relation  for  print  purposes  only) 

define 

attributes 

tmp  text  2 

relations 

temp  with  tmp 

end 

load  temp 
"XX" 
end 

while  more  eq  Y  then  *(main  loop) 
set  var  wslname  text 
set  var  choice  to  0 
while  choice  It  1  or  choice  gt  6  then 


newpage 

write  "Search  Option  Menu"  at  5  15 


write 
write 
write 
write 
write 
write 
at  12  15 
write 
write 


'1. 

'2. 

'3. 

'4. 

'5. 


at  6  15 
Search  by  HIN"  at  8  15 
Search  by  Vessel  Name"  at  9  15 
Search  by  Vessel  Number"  at  10  15 
Search  by  Vessel  Official  Number"  at  11  15 
Search  Only  Vessel  Intelligence  File  by  Vessel  Name"  + 


at  10  10 


"6.  Quit"  at  13  15 
•Enter  Choice:  "  at  15  20 
fillin  choice  using  "  "  at  15  33 
endwhile 

if  choice  eq  2  then  *( search  by  vessel  name) 
set  var  chk-name  to  Y 
while  chk-name  eq  Y  then 
newpage 

write  "Enter  name  of  desired  vessel: 
fillin  wslname  using  "  "  at  10  39 
while  wslname  exists  then 

set  pointer  #1  el  for  vessel  where  vslname  eq  .wslname 
newpage 

if  el  eq  0  then 

sel  vslname  vslhin  vslmake  vslraodel  vsltype  vsllenft  from  + 
vessel  where  vslname  eq  .wslname 
write  "  " 

write  "End  of  data  for  this  vessel  name" 
write  "  " 

write  "Press  any  key  to  continue" 
pause 
else 

write  "This  vessel  name  does  not  exist  in  the  database"  + 

at  10  10 

write  "Press  any  key  to  continue"  at  15  15 
pause 

set  var  choice  to  0 
endif 

set  var  chk-name  to  N 


398 


VWVmrvi  ■niH  JU*  vuvMeMmwuv  tw  m  wm  u  •  vi 


break 

endwhlle 

endwhlle 

endlf 

if  choice  eq  3  then  ’^(search  by  vessel  number) 
set  var  chk-no  to  Y 
while  chk-no  eq  Y  then 
newpage 

write  "Enter  number  of  desired  vessel;  "  at  10  10 
fillin  wslno  using  "  "  at  10  41 
while  wslno  exists  then 

set  pointer  #1  el  for  vessel  where  vslno  eq  .wslno 
newpage 

if  el  eq  0  then 

set  var  wslname  to  vslname  in  #1 

sel  vslname  vslhin  vslmake  vslmodel  vsltype  vsllenft  from  + 
vessel  where  vslno  eq  .wslno 
write  "  " 

write  "End  of  data  for  this  vessel  number" 
write  "  " 

write  "Press  any  key  to  continue" 
pause 
else 

write  "This  vessel  number  does  not  exist  in  the  database"  + 

at  10  10 

write  "Press  any  key  to  continue"  at  15  15 
pause. 

set  var  choice  to  0 
endif 

set  var  chk-no  to  N 
break 
endwhile 
endwhile 
endif 

if  choice  eq  4  then  *(search  by  vessel  official  number) 
set  var  chkoffno  to  Y 
while  chkoffno  eq  Y  then 
newpage 

write  "Enter  official  number  of  desired  vessel;  "  at  1.0  10 
•  fillin  voffno  using  "  "  at  10  50 
while  voffno  exists  then 

set  pointer  #1  el  for  vessel  where  vsloffno  eq  .voffno 
newpage 

if  el  eq  0  then 

set  var  wslname  to  vslname  in  #1 

sel  vslname  vslhin  vslmake  vslmodel  vsltype  vsllenft  from  + 
vessel  where  vsloffno  eq  .voffno 
write  "  " 

write  "End  of  data  for  this  vessel  official  number" 
write  "  " 

write  "Press  any  key  to  continue" 
pause 
else 

write  "This  official  number  does  not  exist  in  the  database"  + 

at  10  10 

write  "Press  any  key  to  continue"  at  15  15 
pause 

set  var  choice  to  0 
endif 

set  var  chkoffno  to  N 
break 
endwhile 
endwhile 
endif 

if  choice  ne  5  and  choice  ne  6  and  choice  ne  0  then  *( search  by  HIN) 
set  var  menu  to  N 
set  var  chk-hin  to  Y 
while  chk-hin  eq  Y  then 
newpage 

if  wslname  exists  then 


set  var  vlname  to  .wslname 
set  var  nameok  to  N 
while  nameok  eq  N  then 
newpage 

set  pointer  #3  e3  for  vessel  where  vslname  eq  .vlname 
while  e3  eq  0  then 
newpage 

set  var  wslname  to  vslname  In  #3 
set  var  wslhln  to  vslhln  In  #3 
draw  hinquery  with  all  at  1 

write  "Press  fENTER]  to  advance  to  next  hln,  [PGDN]  to  + 
use  displayed  data,"  at  21  5 

write  "or  [ESC]  to  return  to  menu"  at  23  5 
edit  var  wslhin  return  esc  enter  pgdn 
If  #return  eq  enter  then 
next  #3  e3 
endlf 

if  #return  eq  pgdn  then 
set  var  nameok  to  Y 
break 
endlf 

if  #return  eq  esc  then 
set  var  nameok  to  Y 
set  var  menu  to  Y 
break 
endlf 
endwhile 
endwhlle 

if  menu  eq  Y  then 
set  var  choice  to  0 
break 
endlf 
else 

set  var  wslhin  text 

write  "Enter  HIN  of  desired  vessel:  "  at  10  10 
write  "(or  enter  xxx  to  go  back  to  menu)"  at  12  10 
fillin  wslhin  using  "  "  at  10  38 
if  wslhin  exists  and  wslhin  eq  xxx  then 
set  var  choice  to  0 
break 
endlf 
endlf 

while  wslhin  exists  then 

set  pointer  #1  el  for  vessel  where  vslhin  =  .wslhin 
newpage 

if  el  eq  0  then 

*(vessel  exists  in  database) 
set  var  wslno  to  v.  ''no  in  ftl 
set  var  wslname  to  vslname  in  #1 
set  var  wslmake  to  vslmake  in  #1 
set  var  wslmod  to  vslraodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  wslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
set  var  wslin  to  vsllenin  in  #1 
set  var  wslhp  to  vslhp  in  itl 
set  var  wsluse  to  vsluse  in  #1 

set  var  vusedscr  to  vusedesc  in  boatuse  where  vuse  eq  + 
.wsluse 

set  var  wsltype  to  vsltype  in  #1 

set  var  vtypdscr  to  vtypedes  in  boattype  where  vtype  eq  + 
.wsltype 

set  var  wslprop  to  vslprop  in  #1 

set  var  vpropdsc  to  propdesc  in  boatprop  where  proptype  eq  + 
.wslprop 

set  var  wslhull  to  vslhull  in  #1 

set  var  vhulldsc  to  hmatdesc  in  hullmat  where  hmattype  eq  + 
.wslhull 

set  var  wsleng  to  vsleng  in  #1 

set  var  vengdesc  to  ecompdes  in  engcomp  where  ecomptyp  eq  + 
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.wslang 

set  var  wslfuel  to  vslfuel  in  #1 

set  var  vfueldes  to  fcompdes  in  fuelcomp  where  fcomptyp  eq 
.wslfuel 

set  var  vconatr  to  vslconst  in  #1 

set  var  vcondesc  to  consdesc  in  constr  where  constype  eq  + 
.vconstr 

set  var  vdecal  to  cmedecal  in  #1 
set  var  vcmeyear  to  cmeyear  in  #1 
set  var  voffno  to  vslofrno  in  #1 
set  var  vhome  to  homeport  in  #1 
set  var  vcall  to  vslcall  in  #1 
set  var  walue  to  vslvalue  in  #1 
set  var  vsuper  to  vslsuper  in  #1 
set  var  vmasts  to  vslmasts  in  #1 
set  var  vsailno  to  sailno  in  #1 
set  var  vhlcolor  to  hlcolor  in  #1 
set  var  vtrcolor  to  trcolor  in  #1 
set  va  /slcolor  to  slcolor  in  #1 
set  var  ycbcolor  to  cbcolor  in  #1 
set  var  vdkcolor  to  dkcolor  in  #1 
set  var  vmarks  to  vslmarks  in  #1 
newpage 

draw  vslquery  with  all  at  1- 
set  var  vslprn  to  A 

while  vslprn  ne  P  and  vslprn  ne  C  and  vslprn  ne  M  then 
write  "Enter  P  to  print  vessel  data,  C  to  continue  or  M  + 
for  main  menu;  "  at  23  5 

fillin  vslprn  using  "  "  at  23  68 
if  vslprn  eq  P  then 
output  printer 
nev^age 
print  vslqprn 
outout  screen 
endif 

if.  vslprn  eq  M  then 
set  var  menu  to  Y 
set  var  chk-hin  to  N 
break 
endif 
endwhile 

if  menu  eq  Y  then 
set  var  choice  to  0 
break 
endif 

set  pointer  #2  e2  for  vslintel  where  int/name  eq  .wslname 
set  var  count  to  1 
if  e2  eq  0  then 
nev^age 

write  "US  Coast  Guard  Group  Monterey  Intelligence  History" 
at  1  10 

write  " — - - - - 

. "  at  2  1 

else 

newpage 

write  "There  is  no  intelligence  for  this  vessel  name"  + 
at  10  10 

write  "Press  any  key  to  continue"  at  23  10 
pause 
nei^age 
endif 

while  e2  eq  0  then 

set  var  vintdate  to  intdate  in  #2 
set  var  vepic  to  epiccode  in  #2 
set  var  vstolen  to  stolen  in  #2 
set  var  wreml  to  vremarkl  in  #2 
set  var  wrem2  to  vremark2  in  #2 
set  var  wrem3  to  vremark3  in  #2 
if  count  eq  1  then 
draw  vintquer  with  all  at  3 


Coast  Guard  Group  Monterey  Intelligence  History"  + 


endlf 


if  count  eq  2  then 
draw  vlntquer  with  all  at  9 
endlf 


if  count  eq  3  then 
draw  vlntquer  with  all  at  IS 
write  "Press  any  key  to  continue"  at  23  10 


pause 


set  var  count  to  .count  +  1 
If  count  eq  4  then 
set  var  count  to  1 
endlf 

next  #2  e2 
endwhlle 

set  pointer  #2  e2  for  vslintel  where  intvname  eq  .wslname 
If  e2  eq  0  then 

write  "Print  vessel  intelligence  information?  (Y)"  at  23  10 
fillin  vintprn  using  "("  at  23  49 
if  vintprn  fails  or  vintprn  eq  Y  then 
newpage 

write  "Preparing  report,  please  stand  by  . "  + 

at  10  10 
remove  vs lint 

project  vslint  from  vslintel  using  all  sorted  by  intdate  + 
where  intvname  eq  .wslname 
output  printer 
ne^age 

print  vintqprn 
output  screen 
remove  vslint 
endlf 
endlf 

set  pointer  #2  e2  for  boarding  where  bovhin  eq  .wslhin 
while  e2  eq  0  then 

set  var  \^odate  to  bodate  in  #2 
set  var  vbotime  to  botime  in  #2 
set  var  vbono  to  bono  in  #2 
set  var  wslpob  to  vslpob  in  #2 
set  var  vbolat  to  obslat  in  #2 
set  var  vbolong  to  obslong  in  #2 
set  var  wiol54  to  viol54  in  #2 
set  var  wiol55  to  viol55  in  #2 
set  var  wiol56  to  viol56  in  #2 
set  var  wiolS?  to  viol57  in  #2 
set  var  wiol58  to  viol58  in  #2 
set  var  wiol59  to  viol59  in  #2 
set  var  wiol60  to  viol60  in  #2 
set  var  wiolSl  to  violSl  in  #2 
set  var  wiol62  to  viol62  in  #2 
set  var  wiol63  to  viol63  in  #2 
set  var  wiol64  to  viol64  in  #2 
set  var  wiol65  to  viol65  in  #2 
set  var  wiol66  to  viol66  in  #2 
set  var  wiol67  to  viol67  in  #2 
set  var  wiol68  to  viol68  in  #2 
set  var  vuns69  to  uns69  in  #2 
set  var  vuns70  to  uns70  in  #2 
set  var  vuns71  to  uns71  in  #2 
set  var  vuns72  to  uns72  in  #2 
set  var  vuns73  to  uns73  in  #2 
set  var  vuns74  to  uns74  in  #2 
set  var  vuns75  to  uns75  in  #2 
set  var  vuns76  to  uns76  in  #2 
set  var  vuns77  to  uns77  in  #2 
set  var  vuns78  to  uns78  in  #2 
set  var  vuns79  to  un£,79  in  #2 
set  var  vboreml  to  boreml  in  #2 
set  var  vborem2  to  borem2  in  #2 
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set  var  vboremS  to  boremS  in  #2 
set  var  vboname  to  boname  in  #2 
set  var  vborate  to  borate  in  #2 
set  var  weapons  to  weapons  in  #2 
set  var  vale  to  uns76  in  #2 
newpage 

write  "US  Coast  Guard  Group  Monterey  Boarding  History"  + 
at  1  10 

write  " . - . - . + 

. "  at  2  1 

draw  brdquery  with  all  at  3 

write  "Press  any  key  to  continue"  at  23  10 

pause 

next  #2  e2 
endwhile 

set  pointer  #2  e2  for  boarding  where  bovhin  eq  .wslhin 
if  e2  eq  0  then 

write  "Print  boarding  history?  (Y)"  at  23  10 
fillin  bohisprn  using  "("  at  23  34 
if  bohisprn  fails  or  bohisprn  eq  Y  then 
ne^^age 

write  "Preparing  report,  please  stand  by  . "  + 

at  10  10 
remove  bohis 

project  bohis  from  boarding  using  bodate  botime  bono  + 
vslpob  obslat  obslong  viol54  vioiSS  viol56  viol57  violSS  + 
viol59  viol60  viol61  viol62  viol63  viol64  viol65  viol66  + 
viol67  viol68  uns69  uns70  uns71  uns72  uns73  uns74  uns75  + 
uns76  una77  uns78  uns79  boreml  borem2  borem3  boname  + 
borate  weapons  bovhin  sorted  by  bodate  where  + 

.  bovhin  eq  .wslhin 
output  printer 
newpage 
print  boqprn 
output  screen 
remove  bohis 
endif 
endif 

if  e2  ne -0  then 
newpage 

write  "There  are  no  boarding  cases  for  this  vessel"  + 
at  10  10 

write  "Press  any  key  to  continue"  at  20  10 
pause 
endif 

set  pointer  #2  e2  for  sar  where  sarvhin  eq  .wslhin 
set  var  count  to  1 
if  e2  eq  0  then 
newpage 

write  "US  Coast  Guard  Group  Monterey  Sar  History"  at  1  10 

write  " . - . + 

. "  at  2  1 

endif 

while  e2  eq  0  then 

set  var  vfoldno  to  folderno  in  #2 
set  var  vuen  to  ucn  in  #2 
set  var  vmuen  to  muen  in  S2 
set  var  vsardate  to  sardate  in  #2 
set  var  vsarday  to  sarday  in  #2 
set  var  vsartime  to  sartime  in  #2 
set  var  vsarnod  to  sarnod  in  #2 

set  var  vsarpob  to  sarnob  in  tt2 

set  var  vsarlat  to  sarlat  in  #2 

set  var  vsarlong  to  sarlong  in  #2 
set  var  vdistoff  to  offshore  in  #2 
set  var  vinuned  to  immedsar  in  #2 
if  count  eq  1  then 

draw  sarquery  with  all  at  3 
endif 

if  count  eq  2  then 
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draw  sarquery  with  all  at  9 
endlf 

If  count  eq  3  then 
draw  sarquery  with  all  at  15 
write  "Press  any  key  to  continue"  at  23  10 
pause 
nevraage 
endir 

set  var  count  to  .count  +  1 
if  count  eq  4  then 
set  var  count  to  1 
endlf 

next  #2  e2 
endwhile 

set  pointer  #2  e2  for  sar  where  sarvhin  eq  .wslhin 
if  ez  eq  0  then 

write  "Print  sar  history?  (Y)"  at  23  10 
fillin  sarhsprn  using  "V  at  23  29 
if  sarhsprn  fails  or  sarhsprn  eq  Y  then 
ne^age 

write  "Preparing  report,  please  stand  by  . "  + 

at  10  10 
remove  sarhis 

project  sarhis  from  sar  using  folderno  ucn  mucn  sardate  + 
sartime  sarnod  sarpob  sarlat  sarlong  offshore  immedsar  + 
sarvhin  sorted  by  sardate  where  sarvhin  eq  .wslhin 
output  printer 
newpage 
print  sarqprn 
output  screen 
remove  sarhis 
endif  ■ 
endif 

if  e2  ne  0  then 
neraage 

write  "There  are  no  sar  cases  for  this  vessel"  at  10  10 
write  "Press  any  key  to  continue"  at  20  10 
pause 
-  endif 

set  pointer  #2  e2  for  owvsl  where  vhinown  eq  .wslhin 
newpage 

while  e2  eq  0  then 

set  var  vowid  to  idowner  in  #2 

set  pointer  #3  e3  for  owners  where  ownid  eq  .vowid 
set  var  vowlname  to  ownlnarae  in  #3 
set  var  vowfname  to  ownfname  in  #3 
set  var  vowmi  to  ownmi  in  #3 
set  var  vowaddr  to  ownaddr  in  #3 
set  var  vowcity  to  owncity  in  #3 
set  var  vowst  to  ownstate  in  #3 
set  var  vowzip  to  ownzip  in  #3 
set  var  vowtelno  to  owntelno  in  #3 
set  var  vowdob  to  owndob  in  #3 
newpage 

draw  ownquery  with  all 
write  "Press  any  key  to  continue"  at  23 
pause 

set  pointer  #1  el  for  perintel  where  intlname  eq  .vowlname 
set  var  count  to  1 
if  el  eq  0  then 
nemage 

write  "US  Coast  Guard  Group  Monterey  Intelligence  + 
History"  at  1  10 

write  " . + 

. "  at  2  1 

else 

newpage 

write  "There  is  no  intelligence  for  this  owner"  at  10  10 
endif 

while  el  eq  0  then 
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let  var  vlname  to  Intlname  In  #1 
let  var  vfname  to  Intfname  In  #1 
let  var  vml  to  Intml  in  #1 
let  var  vdob  to  Intdob  In  #1 
set  var  vreml  to  plntreml  In  #1 
set  var  vrem2  to  plntrem2  in  #1 
set  var  vrem3  to  plntrem3  In  #1 
set  var  vdate  to  plntdate  in  #1 
if  count  eq  1  then 
draw  pintquer  with  all  at  3 
endif 

if  count  eq  2  then 
draw  pintquer  with  all  at  9 
endif 

if  count  eq  3  then 
draw  pintquer  with  all  at  15 

write  "Press  any  key  to  continue  "  + 

at  23  10 

pause 

ne^age 

set  var  count  to  .count  +  1 
if  count  eq  4  then 
set  var  count  to  1 
endif 

next  #1  el 
endwhile 

write  "Press  any  key  to  continue  "  + 

at  23  10 


pause 

next  #2  e2 
endwhile 

write  "Print  owners  and  owner  intelligence?  (Y)"  at  23  10 
fillin  owhisprn  using  "("  at  23  47 
if  owhisprn  fails  or  owhisprn  eq  Y  then 
ne^age 

write  "Preparing  r«ort,  please  stand  by . "  at  10  10 

set  pointer  #2  e2  for  owvsl  where  vhinown  eq  .wslhin 
while  e2  eq  0  then 

set  var  vowid  to  idowner  in  #2 

set  pointer  #3  e3  for  owners  where  ownid  eq  .vowid 

set  var  vowlname  to  ownlname  in  #3 

set  var  vowfname  to  ownfname  in  #3 

set  var  vowmi  to  ownmi  in  #3 

set  var  vowaddr  to  ownaddr  in  #3 

set  var  vowcity  to  owncity  in  #3 

set  var  vowst  to  ownstate  in  #3 

set  var  vowzip  to  ownzip  in  #3 

set  var  vowtelno  to  owntelno  in  #3 


from  perintel  using  all  sorted  by  + 
intlname  eq  .vowlname 


set  var  vowdob  to  owndob  in  #3 
output  printer 
newpage 
print  owqprn 
output  screen 
remove  perint 
project  perint. 
pintdate  where 
output  printer 
newpage 

print  pintqprn 
output  screen 
next  #2  e2 
endwhile 
remove  perint 
endif 

set  pointer  #2  e2  for  opvsl  where  vhinoper  eq  .wslhin 
newpage 

while  e2  eq  0  then 

set  var  vopid  to  idoper  in  #2 

set  pointer  #3  e3  for  operator  where  opid  eq  .vopid 
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•et  var  voplname  to  oplname  In  #3 
set  var  vopfname  to  opfname  In  #3 
set  var  vopml  to  opml  In  #3 
set  var  vopaddr  to  opaddr  in  #3 
set  var  vopclty  to  opcity  in  #3 
set  var  vopst  to  opstate  In  #3 
set  var  vopzlp  to  opzlp  in  #3 
set  var  voptelno  to  opcelno  in  #3 
set  var  vopdob  to  opdob  in  #3 
set  var  vopcrse  to  opcourse  in  #3 
newpage 

draw  opquery  with  all 

write  "Press  any  key  to  continue"  at  10 
pause 

set  pointer  #1  el  for  perintel  where  intlname  eq  .voplname 
set  var  count  to  1 
if  el  eq  0  then 
nemage 

write  "US  Coast  Guard  Group  Monterey  Intelligence  + 
History"  at  1  10 

write  " - + 


■ . "  at  2  1 

else 

newpage 

write  "There  is  no  intelligence  for  this  operator"  + 
at  10  10 
endif 

while  el  eq  0  then 

set  var  vlname  to  intlname  in  #1 
set  var  vfname  to  intfname  in  #1 
set  var  vmi  to  intmi  in  #1 
set  var  vdob  to  intdob  in  #1 
set  var  vreml  to  pintreml  in  #1 
set  var  vrem2  to  pintrem2  in  #1 
set  var  vrem3  to  pintremS  in  #1 
set  var  vdat<i  to  pintdate  in  #1 
if  count  eq  1  then 
draw  pintquer  with  all  at  3 
endif 

if  count  eq  2  then 
draw  pintquer  with  all  at  9 
endif 

if  count  eq  3  then 
draw  pintquer  with  all  at  15 
write  "Press  any  key  to  continue"  at  23  10 
pause 
ne^age 

set  var  count  to  .count  +  1 
if  count  eq  4  then 
set  var  count  to  1 
endif 

next  #1  el 
endwhile 

write  "Press  any  key  to  continue  "  at  23  10 

pause 

,  next  #2  e2 
endwhile 

write  "Print  operators  and  operator  intelligence?  (Y)"  + 
at  23  10 


fillin  ophisprn  using  "("  at  23  53 
if  ophisprn  fails  or  ophisprn  eq  Y  then 
newpage 

write  "Preparing  report,  please  stand  by  . "  at  10  10 

set  pointer  #2  e2  for  opvsl  where  vhinoper  eq  .wslhin 
while  e2  eq  0  then 

set  var  vopid  to  idoper  in  #2 

set  pointer  #3  e3  for  operator  where  opid  eq  .vopid 
set  var  voplname  to  oplname  in  #3 
set  var  vopfname  to  opfname  in  #3 
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set  var  vopml  to  opml  in  #3 
set  var  vopaddr  to  opaddr  in  #3 
set  var  vopcity  to  opcity  in  #3 
set  var  vopst  to  opstate  in  #3 
set  var  vopzip  to  opzip  in  #3 
set  var  voptelno  to  opcelno  in  #3 
set  var  vopdob  to  opdob  in  #3 
set  var  vopcrse  to  opcourse  in  #3 
output  printer 
nev^age 
print  opqprn 
output  screen 
remove  perint 

project  perint  from  perintel  using  all  sorted  by  + 
pintdate  where  intlname  eq  .voplname 
output  printer 
nev^age 

print  pintqprn 
output  screen 
next  #2  e2 
endwhile 
remove  perint 
endif 
newpage 

write  "End  of  data  for  this  vessel"  at  21  10 
set  var  chk-hin  to  N 
break 
else 
newpage 

write  "This  HIN  does  not  exist  in  the  database"  at  10  20 
write  "Do  you  wish  to  reenter  the  HIN?  (Y)"  at  12  20 
fillin  correct  using  "("  at  12  52 
if  correct  exists  and  correct  eq  N  then 
set  var  chk_hin  to  N 
endif 
break 
endif 
endwhile 
endwhile 
endif 

if  choice  eq  5  then 
set  var  chk-intl  to  Y 
while'  chk-intl  eq  Y  then 
newpag'j 

write  "Enter  name  of  desired  vessel:  "  at  10  10 
fillin  wslname  using  "  "  at  10  39 
while  wslname  exists  then 

set  pointer  #2  e2  for  vslintel  where  intvname  eq  .wslname 
set  var  count  to  1 
if  e2  eq  0  then 
newpage 

write  "US  Coast  Guard  Group  Monterey  Intelligence  History"  + 
at  1  10 

write  " - + 

. "  at  2  1 

else 

newpage 

write  "There  is  no  intelligence  for  this  vessel  name"  at  10  10 
write  "Press  any  key  to  continue"  at  23  10 
pause 
endif 

while  e2  eq  0  then 

set  var  vintdate  to  intdate  in  #2 
set  var  vepic  to  epiccode  in  #2 
set  var  vstolen  to  stolen  in  #2 
set  var  wreml  to  vremarkl  in  #2 
set  var  wrem2  to  vremark2  in  #2 
set  var  wrem3  to  vremark3  in  #2 
if  count  eq  1  then 

draw  vintquer  with  all  at  3 
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endif 

if  count  eq  2  then 
draw  vlntquer  with  all  at  9 
endif 

if  count  eq  3  then 
draw  vlntquer  with  all  at  15 
write  "Press  any  key  to  continue"  at  23  10 
pause 
ne^age 

set  var  count  to  .count  +  1 
if  count  eq  4  then 
set  var  count  to  1 
endif 
next  #2  e2 
endwhile 

set  pointer  #2  e2  for  vslintel  where  intvname  eq  .wslname 
if  ez  eq  0  then 

write  "Print  vessel  intelligence  information?  (Y)"  at  23  10 
fillin  vintprn  using  "("  at  23  49 
if  vintprn  fails  or  vintprn  eq  Y  then 
remove  vs lint 

project  vslint  from  vslintel  using  all  sorted  by  intdate  + 
where  intvname  eq  .wslname 
output  printer 
newpage 

print  vintqprn 
output  screen 
remove  vslint 
endif 
endif 

write  "End  of  data  for  this  vessel" 
set  var  chk-intl  to  N 
endwhile 
endwhile 
endif 

if  choice  eq  6  then 
set  var  more  to  N 
endif 

endwhile  *(end  of  main  lobp) 

remove  temp 

remove  bohis 

remove  sarhis 

remove  perint 

remove  vslint 

set  null  -0- 

return 

*(  end  ) 


$ COMMAND 
QUER  PER 


Program: 
Author ; 

Date  Written: 
Description; 


Tables  Used: 
Temp  Tables; 
Reports  Used: 
Forms  Used: 


Query  Personnel 
H  R  Lang  and  J  D  Allen 
August  1987 

This  program  searches  database  for  all 
information  concerning  a  particular  person, 
including  all  vessels  owned  or  operated 
and  all  historical  information  concerning 
these  vessels. 

vessel,  sar.  boarding,  owner,  operator, 
owvsl,  opvsl,  opown,  vslintel,  perintel 
temp,  vslint,  perint,  bohis,  sarhis, 
vslsown,  vslsopr,  wvsljoin,  pvsljoin 
vslqprn,  boqprn,  sarqprn,  perqprn, 
pintqprn,  vintqprn 

vslquery,  brdquery,  sarquery,  perquerl. 


perquer2,  pintquer,  vintquer 


*****yit****yi(******yi(******************jk^*********************************  j 


set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress, 
at  10  10 

clear  all  variables 
set  null  "  " 


Please  stand 


set  var  more  to  Y 

remove  temp  *( relation  for  print  purposes  only) 

define 

attributes 


tmp  text  2 
relations 
temp  with  tmp 
end 

load  temp 
"XX" 
end 

while  more  eq  Y  then  *(main  loop) 
set  var  ownfound  to  N 
set  var  oprfound  to  N 
set  var  status  to  N 


by 


"  + 


newpage 

write  '.'Press  [PGDNl  after  entering  initial  information  to  check  if"  + 
at  1  5 

write  "person  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  perquerl  at  4 
enter  var  return  esc  pgdn 
if  #return  ne  esc  then 

if  vlname  exists  and  vfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  contains  .vlname  and  + 
ownfname  contains  .vfname 


newpage 

while  e2  eq  0  then 

*(last/first  name  exist  in  owners) 
set  var  vplname  to  ownlname  in  #2 
set  var  vpfname  to  ownfname  in  #2 
set  var  vpermi  to  ownmi  in  #2 
set  var  vperdob  to  owndob  in  #2 
set  var  vperaddr  to  ownaddr  in  #2 
set  var  vpercity  to  owncity  in  #2 
set  var  vperst  to  ownstate  in  #2 
set  Var  vperzip  to  ownzip  in  #2 
set  var  vpertel  to  owntelno  in  #2 
newpage 

draw  perquer2  with  all  at  3 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  vowid  integer 
set  var  vowid  to  ownid  in  #2 
set  var  ownfound  to  Y 
break 
endif 
next  #2  e2 
endwhile 

set  var  chk-op  to  Y 
if  ownfound  eq  Y  then 

set  pointer  #2  e2  for  opown  where  ownno  eq  .vowid 
if  e2  eq  0  then 

set  var  vopid  to  opno  in  #2 
set  var  oprfound  to  Y 
set  var  chk-op  to  N 
else 

set  pointer  #3  e3  for  operator  where  oplname  =  .vlname  and  + 


opfname  »  .vfname 

*(check  if  an  operator  record  =  owner  record) 
newpage 

while  e3  eg  0  then 

*(last/first  name  exist  in  operator) 
set  var  voplname  to  oplname  in  #3 
set  var  vopfname  to  opfname  in  #3 
set  var  vopmi  to  opmi  in  #3 
set  var  vopdob  to  opdob  in  #3 
set  var  vopaddr  to  opaddr  in  #3 
set  var  vopcity  to  opcity  in  #3 
set  var  vopst  to  opstate  in  #3 
set  var  vopzip  to  opzip  in  #3 
set  var  voptelno  to  optelno  in  #3 
set  var  owoptest  to  T 

if  vplname  ne  .voplname  or  vpfname  ne  .vopfname  then 
set  var  owoptest  to  F 
endif 

if  'fpermi  exists  and  vopmi  exists  and  vpermi  ne  .vopmi  then 
set  var  owoptest  to  F 
endif 

if  vperdob  exists  and  vopdob  exists  and  vperdob  ne  .vopdob  + 
then 

set  var  owoptest  to  F 
endif 

if  vperaddr  exists  and  vopaddr  exists  and  vperaddr  ne  + 
.vopaddr  then 
set  var  owoptest  to  F 
endif 

if  vpercity  exists  and  vopcity  exists  and  vpercity  ne  + 
.vopcity  then 
set  var  owoptest  to  F 
endif 

if  vperst  exists  and  vopst  exists  and  vperst  ne  .vopst  then 
set  var  owoptest  to  F 
endif 

if  vperzip  exists  and  vopzip  exists  and  vperzip  ne  .vopzip  + 
then 

set  var  owoptest  to  F 
endif 

if  vpertel  exists  and  voptelno  exists  and  vpertel  ne  + 
.voptelno  then 
set  var  owoptest  to  F 
endif 

if  owoptest  eg  T  then 
set  var  vopid  integer 
set  var  vopid  to  opid  in  #3 
set  var  chk-op  to  N 
set  var  oprfound  to  Y 
break 
endif 
next  #3  e3 
endwhile 
endif 
endif 

if  chk-op  eg  Y  then 

set  pointer  #3  e3  for  operator  where  oplname  contains  .vlname  + 

and  opfname  contains  .vfname 

newage 

while  e3  eg  0  then 

*(last/first  name  exist  in  operator) 
set  var  vplname  to  oplname  in  #3 
set  var  vpfname  to  opfname  in  #3 
set  var  vpermi  to  opmi  in  #3 
set  var  vperdob  to  opdob  in  #3 
set  var  vperaddr  to  opaddr  in  #3 
set  var  vpercity  to  opcity  in  #3 
set  var  vperst  to  opstate  in  #3 
set  var  vperzip  to  opzip  in  #3 
set  var  vpertel  to  optelno  in  #3 
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newpage 

draw  perguer2  with  all  at  3 
write  "Correct  operator?  (N)"  at  22  20 
flllin  opfound  using  "("  at  22  38 
if  opfound  exists  and  opfound  eq  Y  then 
set  var  vopid  integer 
set  var  vopid  to  opid  in  #2 
set  var  oprfound  to  Y 
break 
endif 
next  #3  e3 
endwhile 
endif 

if  ownfound  eq  Y  or  oprfound  eq  Y  then 
newpage 

write  "Print  owner/operator  information?  (Y)"  at  10  10 
fillin  persprn  using  "("  at  10  44 
if  persprn  fails  or  persprn  eq  Y  then 
nev^age 

write  "Preparing  report,  please  stand  by . "  at  10  10 

output  printer 
newpage 
print  perqprn 
output  terminal 
endif 
endif 

if  ownfound  eq  N  and  oprfound  eq  M  then 
set  var  vplname  to  .vlname 
endif 

set  pointer  #1  el  for  perintel  where  intlname  contains  .vplname 
set  var  count  to  1 
if  el  eq  0  then 
newpage 

write  "US  Coast  Guard  Group  Monterey  Intelligence  History"  + 
at  1  10 


write 


else 

ne 


at  2  1 


wpage 

write  "There 


is  no  intelligence  for  this  person"  at  10  10 
write  "Press  any  key  to  continue  "  at  23  10 

pause 
endif 

while  el  eq  0  then 

set  var  vlname  to  intlname  in  #1 
set  var  vfname  to  intfnam»»  in  #1 
set  var  vmi  to  intmi  in  itl 
set  var  vdob  to  intdob  in  #1 
set  var  vreral  to  pintreml  in  #1 
set  var  vrem2  to  pintrem2  in  #1 
set  var  vrem3  to  pintrem3  in  #1 
set  var  vdate  to  pintdate  in  #1 
if  count  eq  1  then 
draw  pintquer  with  all  at  3 
endif 

if  count  eq  2  then 

draw  pintquer  with  all  at  9 
endif 

if  count  eq  3  then 

draw  pintquer  with  all  at  15 

write  "Press  any  key  to  continue  "  at  23  10 

pause 

ne^age 

set  var  count  to  .count  +  1 
if  count  eq  4  then 
set  var  count  to  1 
endif 
next  #1  el 
endwhile 


set  pointer  #1  el  for  perintel  where  intlname  eq  .vplname 
If  el  eq  0  then 

write  "Print  personnel  Intelligence?  (Y)"  at  23  10 
fillin  perintor  using  "("  at  23  40 
if  perintpr  fails  or  perintpr  eq  Y  then 
newpage 

write  "Preparing  report,  please  stand  by . "  at  10  10 

remove  perint 

project  perint  from  perintel  using  all  sorted  by  pintdate  + 
where  intlname  eq  .vplname 
output  printer 
newpage 
print  pintqprn 
output  screen 
remove  perint 
endif 
endif 

^(determine  status  of  person,  select  vessels  owned  and  operated) 
*(W  =  owner,  P  =  operator,  B  =  both  and  N  =  neither) 
if  ownfound  eq  Y  and  oprfound  eq  Y  then 
set  var  status  to  B 
remove  vslsown 

project  vslsown  from  owvsl  using  all  where  idowner  eq  .vowid 
remove  wvsljoin 

join  vslsown  using  vhinown  with  vessel  using  vslhin  forming  + 

wvsljoin  where  eq 

newage 

write  "This  individual  owns  the  following  vessels;"  at  1  2 
write  "  " 

sel  vslhin  vslname  from  wvsljoin 
write  "  " 

write  "End  of  data." 
remove  vslsopr 

project  vslsopr  from  opvsl  using  all  where  idoper  eq  .vopid 
remove  pvsljoin 

join  vslsown  using  vhinown  with  vessel  using  vslhin  forming  + 
pvsljoin  where  eq 
write 
write  "  " 

write  "This  individual  has  operated  the  following  vessels:", 
write  "  "  . 

sel  vslhin  vslname  from  pvsljoin 
write  "  " 

write  "End  of  data.  Press  any  key  to  continue" 
pause 
endif 

if  ownfound  eq  Y  and  oprfound  eq  N  then 
set  var  status  to  W 
remove  vslsown 

project  vslsown  from  owvsl  using  all  where  idowner  eq  .vowid 
remove  wvsljoin 

join  vslsown  using  vhinown  with  vessel  using  vslhin  forming  + 

wvsljoin  where  eq 

newpage 

write  "This  individual  owns  the  following  vessels;"  at  1  10 
write  "  " 

sel  vslhin  vslname  from  wvsljoin 
write  "  " 

write  "End  of  data.  Press  any  key  to  continue" 
pause 
endif 

if  ownfound  eq  N  and  oprfound  eq  Y  then 
set  var  status  to  P 
remove  vslsopr 

project  vslsopr  from  opvsl  using  all  where  idoper  eq  .vopid 
remove  pvsljoin 

join  vslsown  using  vhinown  with  vessel  using  vslhin  forming  + 

pvsljoin  where  eq 

newpage 

write  "This  individual  has  operated  the  following  vessels;"  + 
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at  1  10 
write  "  " 

sel  vslhln  vslname  from  pvsljoin 
write  "  “ 

write  "End  of  data.  Press  any  key  to  continue" 
pause 
endif 

if  status  ne  N  then 
newpage 

write  "Do  you  wish  to  search  for  full  information  concerning  + 
these  vessels?  (N;"  at  10  5 

fillin  searchok  using  "("  at  10  74 
if  searchok  exists  and  searchok  eq  Y  then 
set  var  done  to  N 
set  var  owndone  to  N 
while  done  eq  N  then 

if  status  eg  B  and  owndone  eq  M  then 
remove  vsisown 

project  vsisown  from  owvsl  using  all  where  idowner  eq  .vowid 
set  pointer  #3  e3  for  vsisown 
endif 

if  status  eg  W  then 
remove  vsisown 

project  vsisown  from  owvsl  using  all  where  idowner  eq  .vowid 
set  pointer  #3  e3  for  vsisown 
endif 

if  status  eg  P  then 
remove  vsisopr 

project  vsisopr  from  opvsl  using  all  where  idoper  eq  .vopid 
set  pointer  #3  e3  for  vsisopr 
endif 

if  status  eg  B  and  owndone  eq  Y  then 
remove  vsisopr 

project  vsisopr  from  opvsl  using  all  where  idoper  eq  .vopid 
set  pointer  #3  a3  for  vsisopr  where  vhinoper  nea  vhinown  + 
in  vsisown 
endif 

while  e3  eq  0  then 

if  status  eq  B  and  owndone  eq  N  or  status  eq  W  then 
set  var  wslhin  to  vhinown  in  #3 
endif 

if  status  eq  B  and  owndone  eq  Y  or  status  eq  P  then 
set  var  wslhin  to  vhinoper  in  #3 
endif 

set  pointer  #1  el  for  vessel  where  vslh:n  eq  .wslhin 
set  var  wslno  to  vslno  in  #1 
set  var  wslname  to  vslname  in  #1 
set  var  wslmake  to  vslmake  in  #1 
set  var  wslmod  to  vslmodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  wslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
set  var  wslin  to  vsllenin  in  #1 
set  var  wslhp  to  vslhp  in  #1 
set  var  wsluse  to  vsluse  in  #1 

set' var  vusedscr  to  vusedesc  in  boatuse  where  vuse  eq  + 
.wsluse 

set  var  wsltype  to  vsltype  in  #1 

set  var  vtypdscr  to  vtypedes  in  boattype  where  vtype  eq  + 

•  wsltype 

set  var  wslprop  to  vslprop  in  #1 

set  var  vpropdsc  to  propdesc  in  boatprop  where  proptype  eq  + 
.wslprop 

set  var  wslhull  to  vslhull  in  #1 

set  var  vhulldsc  to  hmatdesc  in  hullmat  where  hmattype  eq  + 
.wslhull 

set  var  wsleng  to  vsleng  in  #1 

set  var  vengdesc  to  ecompdes  in  engcomp  where  ecomptyp  eq  + 
.wsleng 

set  var  wslfuel  to  vslfuel  in  #1 
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set  var  vfueldes  to  fcompdes  In  fuelcomp  where  fcomptyp  eq  + 
.wslfuel 

set  var  vconstr  to  vslconst  in  #1 

set  var  vcondesc  to  consdesc  In  constr  where  constype  eq  + 
.vconstr 

set  var  vdecal  to  cmedecal  in  #1 
set  var  vcmeyear  to  cmeyear  in  #1 
set  var  voffno  to  vsloftno  in  #1 
set  var  vhome  to  homeport  in  #1 
set  var  vcall  to  vslcall  in  #1 
set  var  walue  to  vs  lvalue  in  #1 
set  var  vsuper  to  vslsuper  in  #1 
set  var  vmasts  to  vslmasts  in  #1 
set  var  vsailno  to  sailno  in  #1 
set  var  vhlcolor  to  hlcolor  in  #1 
set  var  vtrcolor  to  trcolor  in  #1  • 

set  var  vslcolor  to  slcolor  in  #1 
set  var  vcbcolor  to  cbcolor  in  #1 
set  var  vdkcolor  to  dkcolor  in  #1 
set  var  vmarks  to  vslmarks  in  #1 
newpage 

if  status  eq  B  and  owndone  eq  N  or  status  eq  W  then 
write  "This  vessel  is  owned  by  the  designated  + 
individual.  Press  any  key  to  continue"  at  1  1 
endif 

if  status  eq  B  and  owndone  eq  Y  or  status  eq  P  then 
write  "Subject  person  has  operated  this  vessel.  Press  + 
any  key  to  continue"  at  1  1 
endif 

draw  vslquery  with  all  at  3 
pause 

set  pointer  #2  e2  for  vslintel  where  intvname  eq  .wslname 
set  var  count  to  1 
if  e2  eq  0  then 
ne^age 

write  "US  Coast  Guard  Group  Monterey  Intelligence  + 
History"  at  1  10 

write  - - — - - 

. "  at  2  1 

else 

newpage 

write  "There  is  no  intelligence  for  this  vessel  name"  + 
at  10  10 

write  "Press  any  key  to  continue"  at  23  10 
pause 
endif 
newpage 

while  e2  eq  0  then 

set  var  vintdate  to  intdate  in  #2 
set  var  vepic  to  epiccode  in  #2 
set  var  vstolen  to  stolen  in  #2 
set  var  wreml  to  vremarkl  in  #2 
set  var  vvrem2  to  vremark2  in  #2 
set  var  vvrem3  to  vremark3  in  #2 
if  count  eq  1  then 
draw  vintquer  with  all  at  3 
endif 

if  count  eq  2  then 
draw  vintquer  with  all  at  9 
endif 

if  count  eq  3  then 
draw  vintquer  with  all  at  15 
write  "Press  any  key  to  continue"  at  23  10 
pause 
ne^age 

set  var  count  to  .count  +  1 
if  count  eq  4  then 
set  var  count  to  1 
endif 


next  #2  e2 
endwhile 

if  status  eq  W  or  status  eg  B  then 
set  pointer  #3  e3  for  vsisown 
endlf 

If  status  eg  P  then 

set  pointer  #3  e3  for  vslsopr 
endlf 

If  status  eq  B  and  owndone  eq  Y  then 

set  pointer  #3  e3  for  vslsopr  where  vhinoper  nea  + 
vhlnown  In  vsisown 
endlf 

If  e3  eq  0  then 

write  "Print  vessel  Information  and  Intelligence?  (Y)"  + 
at  23  10 

fillin  vslprn  using  "("  at  23  53 
if  vslprn  fails  or  vslprn  eq  Y  then 
newpage 

write  "Preparing  report,  please  stand  by . "  + 

at  10  10 

while  e3  eq  0  then 

set  var  wslhin  to  '’>'inown  in  #3 

set  pointer  #1  el  for  vessel  where  vslhin  eq  .wslhin 

set  var  wslno  to  vslno  in  #1 

set  var  wslname  to  vslname  in  #1 

set  var  wslmake  to  vslmake  in  #1 

set  var  wslmod  to  vslmodel  in  #1 

set  var  wslyear  to  vslyear  in  #1 

set  var  wslton  to  vsltons  in  #1 

set  var  wslft  to  vsllenft  in  #1 

set  var  wslin  to  vsllenin  in  #1 

set  var  wslhp  to  vslhp  in  #1 

set  var  wsluse  to  vsluse  in  #1 

set  var  vusedscr  to  vusedesc  in  boatuse  -where  vuse  + 
eq  .wsluse 

set  var  wsltype  to  vsltype  in  #1 

set  var  vtypdscr  to  vtypedes  in  boattype  where  + 

vtype  eq  .wsltype 

set  var  wslprop  to  vslprop  in  #1 

set  var  vpropdsc  to  propdesc  in  boatprop  where  + 

proptype  eq  .wslprop 

set  var  wslhull  to  vslhull  in  #1 

set  var  vhulldsc  to  hmatdesc  in  hullmat  where  t 

hmattype  eq  .wslhull 

set  var  wsleng  to  vsleng  in  #1 

set  var  vengdesc  to  ecompdes  in  engcomp  where  + 

ecomptyp  eq  .wsleng 

set  var  wslfuei  to  vslfuel  in  #1 

set  var  vfueldes  to  fcompdes  in  fuelcomp  where  + 

fcomptyp  eq  .wslfuei 

set  var  vconstr  to  vslconst  in  #1 

set  var  vcondesc  to  consdesc  in  constr  where  + 

constype  eq  .vconstr 

set  var  vdecal  to  cmedecal  in  #1 

set  var  vcmeyear  to  cmeyear  in  #1 

set  var  voffno  to  vsloffno  in  #1 

set  var  vhome  to  homeport  in  #i 

set  var  vcall  to  vslcall  in  #1 

set  var  walue  to  vslvalue  in  #1 

set  var  vsuper  to  vslsuper  in  #1 

set  var  vmasts  to  vslmasts  in  #1 

set  var  vsailno  to  sailno  in  #1 

set  var  vhlcolor  to  hlcolor  in  #1 

set  var  vtrcolor  to  trcolor  in  #1 

set  var  vslcolor  to  slcolor  in  #1 

set  var  vcbcolor  to  cbcolor  in  #1 

set  var  vdkcolor  to  dkcolor  in  #1 

set  var  vmarks  to  vslmarks  in  #1 

newpage 

write  "Preparing  report,  please  stand  by . "  + 


at  10  10 
output  printer 
newpage 
print  vslqprn 
output  screen 

set  pointer  #2  e2  for  vslintel  where  intvname  eq  + 
.wslname 
if  e2  eq  0  then 
remove  vslint 

project  vslint  from  vslintel  using  all  sorted  by 
intdate  where  intvname  eq  .wslname 
output  printer 
nev^age 
print  vintqprn 
output  screen 
remove  vslint 
endif 
next  #3  e3 
endwhile 
endif 
endif 

set  pointer  #2  e2  for  boarding  where  bovhin  eq  .wslhin 
while  e2  eq  0  then 

set  var  wodate  to  bodate  in  #2 
set  var  vbotime  to  botime  in  #2 
set  var  vbono  to  bono  in  #2 
set  var  wslpob  tq  vslpob  in  #2 
set  var  vbolat  to  obslat  in  #2 
set  var  vbolong  to  obslong  in  #2 
set  var  wiol54  to  viol54  in  #2 
set  var  wiol55  to  viol55  in  #2 
set  var  wiolS6  to  viol56  in  #2 
set  var  wiol57  to  viol57  in  #2 
set  var  wiolSS  to  violSS  in  #2 
set  var  wiol59  to  viol59  in  #2 
set  var  wiol60  to  viol60  in  #2 
set  var  wiol61  to  viol61  in  #2 
set  var  wiol62  to  viol62  in  #2 
set  var  wiol63  to  viol63  in  #2 
set  var  wiol64  to  viol64  'in  #2 
set  var  wiol65  to  viol65  in  #2 
set  var  wiol66  to  viol66  in  #2 
set  var  wiol67  to  viol67  in  #2 
set  var  wiol68  to  viol68  in  #2 
set  var  vuns69  to  ■uns69  in  #2 
set  var  vuns70  to  uns70  in  #2 
set  var  vuns71  to  uns71  in  #2 
set  var  vuns72  to  uns72  in  #2 
set  var  vuns73  to  uns73  in  #2 
set  var  vuns74  to  uns74  in  #2 
set  var  vuns75  to  uns75  in  #2 
set  var  vuns76  to  uns76  in  #2 
set  var  vuns77  to  uns77  in  #2 
set  var  vuns78  to  uns78  in  #2 
set  var  vuns79  to  uns79  in  #2 
set  var  vboreml  to  boreml  in  #2 
set  var  vborem2  to  borem2  in  #2 
set  var  vboremS  to  boremS  in  #2 
set  var  vboname  to  boname  in  #2 
set  var  vborate  to  borate  in  #2 
set  var  vweapons  to  weapons  in  #2 
set  var  vale  to  uns76  in  #2 
newpage 

write  "US  Coast  Guard  Group  Monterey  Boarding  History" 
at  1  10 

write  " - 

— . "  at  2  1 

draw  brdquery  with  all  at  3 

write  "Press  any  key  to  continue"  at  23  10 

pause 


next  #2  e2 
endwhlle 

set  pointer  #2  e2  for  boarding  where  bovhin  eg  .wslhin 
if  e2  eg  0  then 

write  "Print  boarding  history?  (Y)"  at  23  10 


fillin  bohisprn  using  "("  at  23  34 
if  bohisprn  rails  or  bohisprn  eg  Y  then 
ne^^age 

write  "Preparing  report,  please  stand  by . "  + 

at  10  10 
remove  bohis 


viol65  viol66  viol67  violSB  uns69  uns70  uns71  uns72  + 
uns73  uns74  uns75  uns76  uns77  uns78  uns79  boreml  + 
borem2  borem3  boname  borate  weapons  bovhin  sorted  by  + 
bodate  where  bovhin  eg  .wslhin 
output  printer 
newpage 
print  bogprn 
output  screen 
remove  bohis 
endif 
endif 

if  a2  ne  0  then 
newpage 

write  "There  are  no  boarding  cases  for  this  vessel"  + 
at  10  10 

write  "Press  any  key  to  continue"  at  20  10 
pause 
endif 

set  pointer  #2  e2  for  sar  where  sarvhin  eg  .wslhin 
set  var  count  to  1 
if  e2  eg  0  then 
ne^raage 

write  "US  Coast  Guard  Group  Monterey  Sar  History"  + 
at  1  10 

write  " — - — - — — - 

. . "  at  2  1 

endif 

while  e2  eg  0  then 

set  var  vfoldno  to  folderno  in  #2 
set  var  vucn  to  ucn  in  #2 
set  var  vmucn  to  mucn  in  #2 
set  var  vsardate  to  sardate  in  #2 
set  var  vsarday  to  sarday  in  #2 
set  var  vsartime  to  sartime  in  #2 
set  var  vsarnod  to  sarnod  in 
set  var  vsarpob  to  sarpob  in  #2 
set  var  vsarlat  to  sarlat  in  #2 
set  var  vsarlong  to  sarlong  in  #2 
set  var  vdistoft  to  offshore  in  #2 
set  var  vimmed  to  immedsar  in  #2 
if  count  eg  1  then 

draw  sarguery  with  all  at  3 
endif 

if  count  eg  2  then 
draw  sarguery  with  ail  at  9 
endif 

if  count  eg  3  then 

draw  sarguery  with  all  at  15 
write  "Press  any  key  to  continue"  at  23  10 
pause 
ne^^age 
endif 

set  var  count  to  .count  +  1 
if  count  eg  4  then 
set  var  count  to  1 
endif 


next  #2  e2 
endwhile 

set  pointer  #2  e2  for  sar  where  sarvhln  eg  .wslhin 
If  e2  eq  0  then 

write  "Print  sar  history?  (Y)"  at  23  10 
fillin  sarhsprn  using  at  23  29 
if  sarhsprn  tails  or  sarhsprn  eq  Y  then 
newpage 

write  "Preparing  report,  please  stand  by . "  + 

at  10  10 
remove  sarhis 

project  sarhis  from  sar  using  folderno  ucn  mucn  + 
sardate  sartime  sarnod  sarpob  sarlat  sarlong  offshore 
immedsar  sarvhin  sorted  by  sardate  where  sarvhin  eq  + 
.wslhin 
output  printer 
newpage 
print  sarqprn 
output  screen 
remove  sarhis 
endif 
endif 

if  e2  ne  0  then 
newpage 

write  "There  are  no  sar  cases  for  this  vessel"  at  10  10 
write  "Press  any  key  to  continue"  at  20  10 
pause 
endif 

next  #3  e3 
endwhile 

if  status  eq  W  or  status  eq  P  then 
set  var  done  to  Y 
endif 

if  status  eq  B  and  owndone  eq  N  then 
set  var  owndone  to  Y 
endif 

if  status  eq  B  and  owndone  eq  Y  then 
set  var  done  to  Y 
endif 
endwhile 
remove  vslsown 
remove  vs Is opr 
remove  wvsljoin 
remove  pvslioin 
endif 
else 


newpage 

write  "This  name  does  not  exist  as  an  owner  or  an  operator"  + 
at  10  10 

write  "Press  any  key  to  continue"  at  15  15 
pause 
endif 
endif 
endif 

label  moreblk 


newpage 

write  "More  names  to  check?  (N)"  at  10  10 
fillin  mrname  using  "("  at  10  31 
if  mrname  fails  or  mrname  eq  N  then 
set  var  more  to  N 
else 

clear  all  variables 


set  var  more  to  Y 
endif 

endwhile  *(end  of  main  loop) 

remove  temp 

remove  vslsown 

remove  vslsopr 

remove  perint 

remove  vslint 


remove  bohis 
remove  sarhls 
set  null  -0- 


return 


*(  end  ) 
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APPENDIX  P 
SUTILITY  SOURCE  CODE 


$C0MMAND 

UTLMAIN 

*:^***********:*t*:<t**5l(**5>[*********5<t*****ilr********************y(*********j't*** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

UTILITIES  MENU  and  APPLICATION  PROGRAMS 


Author:  Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*******yc****************i<t*:fc**************yt******************5it*iS:****y(***^ 

set  error  messages  off 
set  messages  off 
set  escape  off 
clear  all  variables 
newpage 

set  var  pickll  integer 

choose  pickll  from  utl_menu  in  sutility.apx 
if  pickll  eq  0  then 
quit  to  restutly.cmd 
endif 

if  pickll  eg  1  then 

run  INITIAL  in  sutility.apx 
quit  to  restutly.cmd 
endif 

if  pickll  eg  2  then 

run  PACKDBMS  in  sutility.apx 
quit  to  restutly.cmd 
endif 

if  pickll  eg  3  then 

run  BACKDBMS  in  sutility.apx 
quit  to  restutly.cmd 
endif 

if  pickll  eq  4  then 

run  RESTDBMS  in  sutility.apx 
^^uit  to  restutly.cmd 

if  pickll  eq  5  then 
quit  to  restmain.cmd 
endif 

quit  to  restutly.cmd 

return 

$menu 

utl_menu 

column  SARELTIS  —  UTILITIES  MENU 

INITIALIZE  DATABASE 

PACK  DATABASE 

BACKUP  DATABASE 

RESTORE  DATABASE 

RETURN  TO  MAIN  MENU 

*(  end  ) 


$COMMAND 

PACKDBMS 

AAAllcAA 


Program: 
Autnor : 

Date  Written: 
Description: 
Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Pack  Database 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  packs/compresses  the  database. 

none 

none 

none 

none 


**:^****:fc***yt***yt******yt*****yf***:*t**********************:lc**********:<c:fc***  J 

set  error  messages  off 
set  messages  oft 
set  escape  off 
clear  all  variables 
newpage 

write  "Before  packing  the  database,  please  ensure  that  you  have  + 
made"  at  4  1 

write  "a  back  up  of  the  database.  Ideally,  you  should  back  up  + 
the  "  at  5  1 

write  "database  just  prior  to  performing  the  packing  operation."  at  6  1 
set  var  choice  text 

write  "Do  you  wish  to  continue  with  the  packing  program?  (N)"  at  8  1 
set  error  messages  on 
fillin  choice  using  "("  at  3  51 
set  error  messages  off 
if  choice  fails  or  choice  eq  n  then 
return 
else 

write  "Packing/Compressing  the  database  will  take  several  + 
minutes."  at  10  1 

write  "Please  be  patient . "  at  12  1 

write.  "Please  press  any  key  to  continue"  at  16  1 

pause 

newpage 

write  "Now  packing  the  database . "  at  10  1 

set  error  var  erv 
pack  sarsvs 
if  erv  =  0  then 

write  "Packing  has  successfully  completed."  at  12  1 
else 

write  "An  error  has  occurred  during  the  packing."  at  12  1 
write  "Please  refer  to  the  reference  manual  page  5-25."  at  13  1 
endif 

write  "Please  press  any  key  to  continue"  at  18  1 
endif 

clear  all  variables 

return 

*(  end  ) 


$ COMMAND 
BACKDBMS 


Program: 

Autnor: 

Date  Written; 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 


Backup  Database 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  provides  instructions  for 

backing  up  the  database. 

none 

none 

none 


% 
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Forms  Usedi 


none 


:*t*****jlltyit****************************A:fcA***********il[************  *t*******) 


set  error  messages  off 
set  messages  off 
set  escape  off 
newpage 

write  "Backing  up  of  the  database  should  be  done  at  a  minimum  of  once  + 
per"  at  3  1 

write  "week.  To  back  the  database  up  only  requires  that  you  exit  + 
the  "  at  4  1 

write  "database  and  executing  a  DOS  (Disk  Operating  System)  batch  + 
program"  at  5  1 

write  "that  has  been  specifically  customized  to  do  the  backup  for  + 
you."  at  6  1 

write  "To  exit  the  system,  you  must  choose  the  [EXIT  SARSYS]  option  + 
from"  at  10  1 

write  "the  master  menu.  This  will  exit  from  RBase  5000  and  return  + 
you  to"  at  11  1 

write  "the  DOS  prompt.  At  the  DOS  prompt,  enter  the  following:"  + 
at  12  1 

write  "  BACXDBMS  "  + 

at  14  1 

write  "Please  follow  ihe  instructions/prompts  that  the  computer  + 
displays"  at  16  1 

write  "with  regard  to  the  insertion  of  formatted  disks.  Upon  + 
completion"  at  17  1 

write  "of  the  program,  you  will  automatically  be  returned  to  RBase  + 
5000."  at  18  1 

write  "Please  press  any  key  when  you  are  ready  to  proceed . + 

at  23  1 


pause 

newpage 

return 


*(  end  ) 


SCOMMAND 

RESTDBHS 

********:<:  :*t:<r**********************A**************:<t*************  A******* 

Program:  Restore  Database 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  provides  instructions  for 

restoring  the  database  from  a  backup. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 


set  error  messages  off 
set  messages  off 
set'  escape  off 
newpage 

write  "To  restore  the  database  only  requires  that  you  exit  the  "  + 
at  4  1 

write  "database  and  execute  a  DOS  (Disk  Operating  System)  batch  + 
program"  at  5  1 

write  "that  has  been  specifically  customized  to  do  the  restore  for  + 
you."  at  6  1 

write  "To  exit  the  system,  you  must  choose  the  [EXIT  SARSYS]  option  + 
from"  at  10  1 

write  "the  master  menu.  This  will  exit  from  RBase  5000  and  return  + 


you  to"  at  11  1 

write  "the  DOS  prompt.  At  the  DOS  prompt,  enter  the  following!"  + 
at  12  1 

write  "  RESTDBMS  "  + 

at  14  1 

write  "Please  follow  the  instructions/prompts  that  the  computer  + 
displays"  at  16  1 

write  ^with  regard  to  the  insertion  of  backup  disks.  Upon  completion" 

write  "of  the  program,  you  will  automatically  be  returned  to  RBase  + 
5000."  at  18  1 

write  "Please  press  any  key  when  you  are  ready  to  proceed . + 

at  23  1 
pause 
newpage 
return 
*(  end  ) 


iVWVi  Uf irwrv^'inr w 


LIST  OF  REFERENCES 


1.  Commandant,  U.  S.  Coast  Guard  Instruction  7100.1A,  11  February  1982. 

2.  Davis,  William  S.,  Systems  Analysis  and  Design,  Addison-Wesley  Publishing 
Company,  1983. 

3.  Kroenke,  David  M.,  DATABASE  PROCESSING:  Fundamentals,  Design, 
Implementation,  Science  Research  Associates,  Inc.,  1983. 

4.  Graham,  James  M.,  The  Completed  Management  Information  System  for  the 
Monterey  Navy  Flying  Club,  Masters  Thesis,  Naval  Postgraduate  School, 
Monterey,  California,  March  1987. 

5.  R:base  5000  User's  Manual,  Micro  Rim,  Inc.,  1985. 


BIBLIOGRAPHY 


Ackoff,  Russel  L.,  "Management  Misinformation  Systems",  Management  Science,  v.  14, 
no.  4,  December  1967,  pp.  (B)147-(B)156. 

Bloomfield,  Howard  V.  L.,  The  Compact  History  of  the  United  States  Coast  Guard, 
Hawthorne  Books,  Inc.,  1966. 

Bohl,  .Marilyn,  Information  Processing,  Science  Research  Associates,  Inc.,  1984. 

Briggs,  Charles  L.,  Birkes,  Evan  G.  and  Atkins,  William,  Managing  the  Systems 
Development  Process,  Touche  Ross  and  Company,  1980. 

Coast  Guard  Fact  File  {1986-1987),  Community  Relations  Branch  (G-BPA-3),  U.  S. 
Coast  Guard,  July  1986. 

Coast  Guard  Group  Monterey  Instruction  5400,  15  November  1984. 

Commandant,  U.  S.  Coast  Guard  Instruction  7100.1A,  11  February  1982. 

Commandant,  U.  S.  Coast  Guard  Instruction  16203.1,  29  May  1980. 

Commandant,  U.  S.  Coast  Guard  Instruction  M16750.4,  13  September  1979. 

Davis,  William  S.,  Systems  Analysis  and  Design,  Addison-Wesley  Publishing  Company, 
Inc.,  1983. 

Department  of  Transportation,  U.  S^  Coast  Guard,  Enforcement  of  Laws  and  Treaties 
FY  82-91,  Operating  Program  Plan  (1979).- 

Department  of  Transportation,  U.  S.  Coast  Guard,  Missions  of  the  United  States  Coast 
Guard  iCG-378-8),  1985. 

Dickson,  Gary  W.  and  Wetherbe,  James  C.,  The  Management  of  Information  Systems, 
McGraw-Hill  Book  Company,  1985. 

Dinerstein,  Nelson  T.,  R'.base  5000  for  the  Programmer,  Scott,  Foresman  and 
Company,  1986. 

Evans,  Stephan  H.,  The  United  States  Coast  Guard  1790-1915,  The  United  States  Naval 
Institute,  1949. 

Graham,  James  M.,  The  Completed  Management  Information  System  for  the  Monterey 
Navy  Flying  Club,  Masters  Thesis,  Naval  Postgraduate  School,  Monterey,  California, 
March  1987. 

Kent,  William,  "A  Simple  Guide  to  Five  Normal  Forms  in  Relational  Database 
Theory",  Communications  of  the  ACM,  vol  26,  no.  2,  February  1983,  pp.  120-125. 

King,  David,  Current  Practices  in  Software  Development,  Yourdon  Press,  1984. 

Kroenke,  David,  Database  Processing:  Fundamentals,  Design,  Implementation  Science 
Research  Associates,  Inc.,  1977. 


Lutton,  Bill  and  Matson,  Jo  Anna,  Enforcement  Management  Information  System 
User's  Manual,  National  Marine  Fishery  Service,  Washington,  D.C. 

Mitchell,  Thaddeus  R.  and  Bell,  Robert  S.  Drug  Interdiction  Operations  by  the  Coast 
Guard'.  Database  and  Analysis,  Center  for  Naval  Analysis,  Report  CRC  413,  December 

1979. 

Page-Jones,  Meilir,  The  Practical  Guide  to  Structured  Systems  Design,  Yourdon  Press, 

1980. 

Prague,  Cary  N.  and  Hammitt,  James  E.,  Programming  with  R'.base  5000,  Tab  Books, 
Inc.,  1986. 

ReQuest  System  User  Manual,  System  Automation  Corporation,  April  1984. 

R'.base  ‘tOOO  User's  Manual  and  Tutorial,  MicroRim,  Inc.,  1984. 

R'.base  5000  User's  Manual,  MicroRim,  Inc.,  1985. 

Simpson,  Alan,  Understanding  R'.base  5000,  SYBEX,  1985. 

Yourdon,  Edward,  Managing  the  Structured  Techniques,  Yourdon  Press,  1976. 


INITIAL  DISTRIBUTION  LIST 


No.  Copies 

1.  Defense  Technical  Information  Center  2 

Cameron  Station 

Alexandria,  VA  22304-6145 

2.  Library,  Code  0142  2 

Naval  Postgraduate  School 

Monterey,  CA  93943-5002 

3.  Curricular  Office,  Code  37  1 

Department  of  Computer  Technology 

Naval  Postgraduate  School 
Monterey,  CA  93943-5000 

4.  Barry  A.  Frew,  Code  54Fw  2 

Department  of  Administrative  Sciences 

Naval  Postgraduate  School 
Monterey,  CA  93943-5000 

5.  Vincent  Y.  Lum  1 

Department  of  Computer  Science 

Naval  Postgraduate  School 
Monterey,  CA  93943-5000 

6.  Chief  of  Naval  Operations  '  2 

Director,  Information  Systems  (OP-945) 

■  Navy  Department 

Washington,  D.  C.  20350-2000 

7.  RADM  W.  Merlin  2 

Commandant  (G-T) 

U.S.  Coast  Guard 
2100  Second  Street  SW 
Washington,  D.  C.  20590-0000 

8.  Commandant  (G-TPP/HRM)  2 

U.S.  Coast  Guard 

2100  Second  Street  SW 
Washington,  D.  C.  20593-0000 

9.  Commandant  (G-PTE-1)  2 

U.S.  Coast  Guard 

2100  Second  Street  SW 
Washington,  D.  C.  20590-0000 


10.  Commander 

Coast  Guard  Group  Monterey 
100  Lighthouse  Avenue 
Monterey,  CA  93940-1497 

11.  LT  Jon  D.  Allen 

U.S.  Coast  Guard  Station  Alexandria 

Telegraph  Road 

Alexandria,  Virginia  22310-0000 

12.  LT  Heidi  R.  Lang 
100  Conant  Drive 

Buffalo,  New  York  14223-0000 

13.  Mr.  and  Mrs.  Gordon  G.  .Mien 
1555  Dorset  Street 

South  Burlington,  VT  05402-0000 

14.  Mr.  and  Mrs.  Edward  P.  Lang 
100  Conant  Drive 

Buffalo,  New  York  14223-0000 


